Mini Shell
Mini Shell
| Direktori : /root/.cpanm/work/1590825950.14464/Expect-1.35/examples/ |
| Current File : //root/.cpanm/work/1590825950.14464/Expect-1.35/examples/calc.pl |
use strict;
use warnings;
while (my $row = <>) {
chomp $row;
print "Input: '$row' = ";
my $res = eval $row;
print "'$res' :Output\n";
}