File: calc.pl

package info (click to toggle)
libexpect-perl 1.38-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 444 kB
  • sloc: perl: 1,818; makefile: 13
file content (9 lines) | stat: -rwxr-xr-x 141 bytes parent folder | download | duplicates (2)
1
2
3
4
5
6
7
8
9
use strict;
use warnings;

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