mirror of
https://github.com/opnsense/src.git
synced 2026-02-28 04:10:49 -05:00
15 lines
387 B
Perl
15 lines
387 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 ($SHcmd = <>) {
|
|
$/ = $SHlinesep;
|
|
eval $SHcmd; print $@ || "\n";
|
|
$SHlinesep = $/; $/ = '';
|
|
}
|