本文共 626 字，大约阅读时间需要 2 分钟。

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

转载地址：http://hzjci.baihongyu.com/