Perl练习之——微型计算器

print "请输入第一个数字first: " ;
$pmt = <STDIN> ;
chomp $pmt ;

print "请输入第二个数字second: " ;
$interest = <STDIN> ;
chomp $interest ;

print "请输入运算符号sin,0>+,1>-,2>*,3>/ " ;
$mons = <STDIN> ;
chomp $mons ;

#Formula requires a monthly interest
if( $mons == 0){
?? ?print "您输入的运算符号为: + n" ;
?? ? $total = $pmt + $interest ;
}elsif( $mons == 1){
?? ?print "您输入的运算符号为: - n" ;
?? ? $total = $pmt - $interest ;
}elsif( $mons == 2){
?? ?print "您输入的运算符号为: * n" ;
?? ? $total = $pmt * $interest ;
}elsif( $mons == 3){
?? ?print "您输入的运算符号为: / n" ;
?? ?if($interest == 0){
?? ??? ?$total = "除数不能为0 n"
?? ?}else{
?? ??? ? $total = $pmt / $interest ; ?? ?} }else{ ?? ?$total = "出错啦。" ; } ?? ? print "计算结果是：? $total" ;