一个最简单的计算器

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";

		}

}