mirror of
https://github.com/sstent/sublime-text-3.git
synced 2026-01-26 15:11:55 +00:00
14 lines
207 B
Perl
14 lines
207 B
Perl
$| = 1;
|
|
|
|
while(true) {
|
|
print "perl> ";
|
|
$line=<>;
|
|
$value=eval($line);
|
|
$error=$@;
|
|
if( $error ne "" ) {
|
|
print $error;
|
|
} else {
|
|
print "$value\n";
|
|
}
|
|
}
|