Root Zanli
Home
Console
Upload
information
Create File
Create Folder
About
Tools
:
/
proc
/
thread-self
/
root
/
usr
/
share
/
doc
/
perl-Expect
/
examples
/
Filename :
calc.pl
back
Copy
use strict; use warnings; while (my $row = <>) { chomp $row; print "Input: '$row' = "; my $res = eval $row; print "'$res' :Output\n"; }