NAME
psh - Perl Shell
SYNOPSIS
A fairly simple read-eval loop. The -w flag and 'use strict' are not employed so that the user is not bound by their stipulations. Setting $^W = 1 will turn on warnings, and calling '<use strict>' will do the usual thing if called by the user.
DESCRIPTION
Each line of input is read and immediately evaluated.
Multiline input may be entered by starting with a line like <<XXX, followed by lines of input not having XXX on a line by itself, followed by such a line. If XXX is not specified, then the first blank line terminates the input.
An input line beginning with `!' will be given as a parameter to the system() Perl function.
An input line beginning with `.' followed by a space and a file name will cause the contents of the specified file to be read in and evaluated.
If $ENV{HOME} is set, and the file $ENV{HOME}/.pshrc is present, it will be read in and evaluated before processing begins. If not, but <.pshrc> is present in the current directory, it will be read and executed.
Setting the variable $psh::prompt to a string will cause that string to be used as the prompt-string. Setting it to a subroutine reference causes the result of running that subroutine to be used each time. For example,
$psh::prompt = sub { $i++; "psh [$i]\$ "; }will cause the prompt to be psh [1]$ followed by psh [2]$, and so on.
LIMITATIONS
The loop inside psh will clobber $1 and other variables because it uses matches to implement some of its special functions.
Very little error checking is done.
FILES
.pshrc - The user's Perl Shell `profile'. May be in $HOME or the current directory.
AUTHOR
Gregor N. Purdy, gregor@focusresearch.com
COPYRIGHT
Copyright (C) 1999 Gregor N. Purdy. All rights reserved. This script is free software. It may be copied or modified according to the same terms as Perl itself.