BBS in a Box 15/BBS in a box XV-2.iso/Files II/Prog/M/MacPerl 4.13 source.sit/Perl Source ƒ/Perl/perlsh

Text File | 1993-10-23 | 387 b | 16 lines | [TEXT/MPS ]

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

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