https://perl5.git.perl.org / perl5.git / blame_incremental
| Commit | Line | Data |
|---|---|---|
| 1 | #!/usr/bin/perl | |
| 2 | ||
| 3 | # Poor man's perl shell. | |
| 4 | ||
| 5 | # Simply type two carriage returns every time you want to evaluate. | |
| 6 | # Note that it must be a complete perl statement--don't type double | |
| 7 | # carriage return in the middle of a loop. | |
| 8 | ||
| 9 | $/ = "\n\n"; # set paragraph mode | |
| 10 | $SHlinesep = "\n"; | |
| 11 | while (defined($SHcmd = <>)) { | |
| 12 | $/ = $SHlinesep; | |
| 13 | eval $SHcmd; print $@ || "\n"; | |
| 14 | $SHlinesep = $/; $/ = ''; | |
| 15 | } |