diff options
Diffstat (limited to 'gnu/usr.bin/perl/eg/perlsh')
-rw-r--r-- | gnu/usr.bin/perl/eg/perlsh | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/gnu/usr.bin/perl/eg/perlsh b/gnu/usr.bin/perl/eg/perlsh new file mode 100644 index 0000000..2b2cccd --- /dev/null +++ b/gnu/usr.bin/perl/eg/perlsh @@ -0,0 +1,15 @@ +#!/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 = $/; $/ = ''; +} |