# calc.pl
# 内容 :　電卓プログラム
# 　　　　入力ファイルに式をセットしておくと
# 　　　　出力ファイルに式＝値という形式で出力される。
#　　　　　（例）入力ファイル　　　出力ファイル
#　　　　　　　　15 + 22　　　　　　15 + 22 = 37
#　　　　　　　　41 - 29　　　　　　41 - 29 = 12
#　　　　　　　　12 * 15　　　　　　12 * 15 = 180
#　　　　　　　　128 / 8　　　　　　128 / 8 = 16
# Copyright (c) 2002 Mitsuo Minagawa, All rights reserved.
# (minagawa@fb3.so-net.ne.jp)  
# 使用方法 : c:\>perl calc.pl
#
open(IN,"in1.txt");
open(OUT,">out1.txt");
while	($expression	=		<IN>)			{
		chop($expression);
		print	OUT		"$expression	= 	",eval	$expression,"\n";
		warn	$@	if $@	
}
close(IN);
close(OUT);
