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