一个最简单的计算器

morningCV

于 2013-08-24 09:58:23 发布

阅读量2.4k

点赞数 1

分类专栏： perl 编程经验

本文链接：https://blog.youkuaiyun.com/g_r_c/article/details/10252211

版权

编程经验同时被 2 个专栏收录

108 篇文章

订阅专栏

perl

101 篇文章

订阅专栏

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