21 lines
382 B
Perl
21 lines
382 B
Perl
#!/usr/bin/perl
|
|
|
|
print "Hi. This is a perl prompt.\n";
|
|
print "Type a Perl expression to be evaluated here\n";
|
|
print "or exit using \"exit\" or Ctrl-C.\n\n";
|
|
|
|
sub get_line {
|
|
$| = print "> ";
|
|
readline();
|
|
}
|
|
|
|
while (defined($line = get_line())) {
|
|
chomp $line;
|
|
if ($line eq "exit") {
|
|
print "Bye for now!\n";
|
|
exit;
|
|
}
|
|
my $result = eval $line;
|
|
print "=> $result\n";
|
|
}
|