mirror of
https://github.com/freebsd/freebsd-src
synced 2024-11-05 18:22:52 +00:00
15 lines
396 B
Perl
15 lines
396 B
Perl
#!/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 = $/; $/ = '';
|
|
}
|