1#@!#!123s

32759 1#@!#!123s

: / usr / share / doc / perl-Expect / examples /

Filename : calc.pl

back

use strict;
use warnings;

while (my $row = <>) {
	chomp $row;
	print "Input: '$row' = ";
	my $res = eval $row;
	print "'$res' :Output\n";
}