Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
tag: perl-4.0.00
Fetching contributors…

Cannot retrieve contributors at this time

file 15 lines (12 sloc) 0.383 kb
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
#!/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 = $/; $/ = '';
}
Something went wrong with that request. Please try again.