mirror of
https://git.FreeBSD.org/src.git
synced 2024-12-17 10:26:15 +00:00
16 lines
396 B
Perl
16 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 = $/; $/ = '';
|
|
}
|