home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The World of Computer Software
/
World_Of_Computer_Software-02-387-Vol-3of3.iso
/
p
/
perl4036.zip
/
os2
/
perlsh.cmd
< prev
next >
Wrap
OS/2 REXX Batch file
|
1993-02-08
|
418b
|
20 lines
extproc perl -x
#!perl
# Poor man's perl shell.
# Simply type two carriage returns every time you want to evaluate.
# Note that it must be a complete perl statement--don't type double
# carriage return in the middle of a loop.
print "Perl shell\n> ";
$/ = ''; # set paragraph mode
$SHlinesep = "\n";
while ($SHcmd = <>) {
$/ = $SHlinesep;
eval $SHcmd; print $@ || "\n> ";
$SHlinesep = $/; $/ = '';
}