ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng)/ProfitPress-MegaCDROM2.B6I/MISC/GNU/PL4019AS.ZIP/PERLSH

Text File | 1991-11-28 | 404 b | 19 lines

#!/usr/bin/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.


$/ = '';    # set paragraph mode
$SHlinesep = "\n";
while ($SHcmd = <>) {
    $/ = $SHlinesep;
    eval $SHcmd; print $@ || "\n";
    $SHlinesep = $/; $/ = '';
}