source: trunk/third/perl/perlsh @ 9009

Revision 9009, 387 bytes checked in by ghudson, 28 years ago (diff)
This commit was generated by cvs2svn to compensate for changes in r9008, which included commits to RCS files with non-trunk default branches.
Line 
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";
11while ($SHcmd = <>) {
12    $/ = $SHlinesep;
13    eval $SHcmd; print $@ || "\n";
14    $SHlinesep = $/; $/ = '';
15}
Note: See TracBrowser for help on using the repository browser.