[perl5.git] / perlsh

#!/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.

$/ = '';	# set paragraph mode
$SHlinesep = "\n";
while ($SHcmd = <>) {
    $/ = $SHlinesep;
    eval $SHcmd; print $@ || "\n";
    $SHlinesep = $/; $/ = '';
}
Commit	Line	Data
378cc40b LW	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	$/ = ''; # set paragraph mode
	10	$SHlinesep = "\n";
	11	while ($SHcmd = <>) {
	12	$/ = $SHlinesep;
	13	eval $SHcmd; print $@ \|\| "\n";
	14	$SHlinesep = $/; $/ = '';
	15	}