use strict;
use warnings;
my ($i,@in,$sum,);
for (1..1000)
{
chomp($i=<>);
if ($i eq "quit")
{
exit;
}
else
{
$i=~m/([\d\s\.]+)(.)([\.\d\s]+)/;
$in[0]=$1;
$in[1]=$2;
$in[2]=$3;
if ($in[1] eq "*")
{
$sum=$in[0]*$in[2];
}
elsif ($in[1] eq "+")
{
$sum=$in[0]+$in[2];
}
elsif ($in[1] eq "-")
{
$sum=$in[0]-$in[2];
}
elsif ($in[1] eq "/")
{
$sum=$in[0]/$in[2];
}
print "$sum\n";
}
}
一个最简单的计算器
最新推荐文章于 2022-04-23 14:17:09 发布