一个最简单的计算器

use strict;
use warnings;

my ($i,@in,$sum,);
for (1..1000)
{
	chomp($i=<>);
	if ($i eq "quit")
	{
		exit;
	}
	else
	{
		$i=~m/([ds.]+)(.)([.ds]+)/;
		$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
";
		}
}