mirror of
https://git.FreeBSD.org/src.git
synced 2024-12-20 11:11:24 +00:00
16 lines
396 B
Plaintext
16 lines
396 B
Plaintext
|
#!/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 = $/; $/ = '';
|
||
|
|
}
|