Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
branch: smoke-me/rafl/…
Fetching contributors…

Cannot retrieve contributors at this time

16 lines (12 sloc) 0.396 kb
#!/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 (defined($SHcmd = <>)) {
$/ = $SHlinesep;
eval $SHcmd; print $@ || "\n";
$SHlinesep = $/; $/ = '';
}
Jump to Line
Something went wrong with that request. Please try again.