PSH - perl shell
Version 0.7
use PSH; ... PSH::prompt;
This module provides a ``perl command prompt'' facility for your program. You may do some processing and then simply call PSH::prompt to allow the user to finish the task if something went wrong by calling the functions of your program.
I use it for example at the end of the Golem (peoplemeter data processing software) import script. Sometimes I get not only the new data, but also some repairs of old ones and sometimes some stage of import fails. This perl prompt at the end of the script allows me to fix such problems ``by hand''.
This module provides two functions, PSH::prompt and PSH::welcome. The first prints the ``perl$'' prompt, waits for user interaction and executes the entered commands. The user then closes the prompt by pressing CTRL-D (Unix/Mac) or CTRL-Z (Windoze).
All commands are processed in the same package from which PSH::prompt was
called. You may access all global or local() variables, but of
course not my() variables.
The call to PSH::prompt returns the value of the last executed statement.
Since version 0.4 you may pass two parameters to PSH::prompt :
PSH::prompt [$prompttext, [ \&evalsub ] ]
The first sets the prompt used by the module, the second sets the function used to evaluate the code you entered. Default is
PSH::prompt 'perl', \&eval;
The second function prints out the version info.
Commands starting by ! are passed to the command prompt, If the line ends by >, the output of the command is redirected to variable $it. If you want to catch both STDOUT and STDERR use this:
perl$ ! command 2>&1 >
All other commands are supposed to be a perl code.
The code to be evaluated may be entered in two ways or use something like heredoc
If the first line in a new command starts with <<, the rest of the line is considered as the heredoc delimiter. As long as you do not enter a line containing only those characters, the lines are only appended into a variable. As soon as you close the heredoc, the code is evaluated.
Otherwise the code you enter is evaluated as soon as you enter a line finished by a semicolon.
The value of the last command may be found in $it.
You may exit this ``shell'' by either ``exit;'' or CTRL+Z. Please keep in mind that ``exit;'' will close the whole script, while CTRL+Z will only close the prompt and the script will continue running!
Therefore you should use ``exit;'' with caution.
In the same directory as PSH.pm may be also file PSH.config. This file will be ``required'' whenever you use PSH. You may add some function definitions and variables there.
Please keep in mind that this file is required in PSH package so the variables and functions you define therein are in this package by default!
Also keep in mind that this file is require()d! The last
statement in this file MUST return a true value!!! And there must be some
command in the file! At least
1;
You should not do any changes to PSH.pm cause it would be quite hard to upgrade then. If possible, do the necessary personalization through PSH.config. If you find something that would be useful for other people, or something you cannot do from within PSH.config, contact me. I'm always open to suggestions and additions :-)
$PSH::allowsystem = should the prompt allow executing system commands through "! command" ? Default = yes.
%PSH::alias = a hash of aliases for commands. Every time you enter a line starting with an exclamation mark, the first word is looked up in this hash and if a match is found, this word is replaced by the value from the hash. All keys in this hash should be lowercase, the match is case-insensitive.
You will probably want to populate this hash according to macros in your preferred shell or OS. On my pages you may find examples for reading doskey macros and applications registered to Windoze.
%PSH::specials = a hash of specials This hash allows you to install additional special characters similar to "!". If PSH sees a special character (a key from this hash), it calls the specified function for that character (the value). Actually it doesn't have to be a character :-)
Default : $PSH::specials{'!'} = \&PSH::Exec;
You should not modify this hash directly, you'd better use function PSH::specials :
PSH::specials '^' => \&foo; PSH::specials '!' => undef;
Otherwise the change may be ignored !
use PSH;
END {PSH::prompt unless $OK}
$do->some('processing) or die "Error : $do->{error}!\n";
some(more->commands) or die "Error : some went wrong!\n";
$OK=1;
__END__
This will allow the user to do some by-hand cleansing if an error occures.
use PSH;
PSH::prompt 'hello', sub {print $_[0]};
perl$ print 45+6;
51
perl$ print 12
perl> + 15;
27
perl$ sub Foo {
perl> print "Foo called\n";
ERROR: Missing right bracket at (eval 3) line 5, at end of line syntax error at (eval 3) line 5, at EOF
perl$ sub Foo {
perl> print "Foo called\n"; #
perl> };
perl$ Foo; Foo called
perl$ <<END
perl(END)$ sub Bar {
perl(END)$ my $arg = shift;
perl(END)$ print "Bar called with ($arg)\n";
perl(END)$ }
perl(END)$ END
perl$ Bar(45); Bar called with (45)
perl$ ^Z
c:\>