summaryrefslogtreecommitdiffstats
path: root/contrib/perl5/perlsh
blob: 63662d6c6a155b1542cd13541f4fb9a457a5da63 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
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 (defined($SHcmd = <>)) {
    $/ = $SHlinesep;
    eval $SHcmd; print $@ || "\n";
    $SHlinesep = $/; $/ = '';
}
OpenPOWER on IntegriCloud