在我的代碼中使用Perl進行整數部分不起作用

Question

在下面的Perl程序中，由於某種原因，整數部分不會發生。相反，控制檯輸出兩個整數的連接，也不會發生divsion的if語句。爲什麼是這樣？謝謝。

代碼：

print "Please Enter Your First Number\n"; 
$num1 = <>; chomp $num1; 

print "Please Enter Your Operation\n"; 
$operation = <>; chomp $operation; 

print "Please Enter Your Second Number\n"; 
$num2 = <>; chomp $num2; 

if ($operation == "+"){ 
    $result = $num1 + $num2; 
} elsif ($operation == "-"){ 
    $result = $num1 - $num2; 
} elsif ($operation == "*"){ 
    $result = $num1 * $num2; 
#Problem HERE: 
} elsif ($operation == "/"){ 
    if ($num2 == 0){ 
     print "Cant Divide be Zero Mate\n"; 
    } else { 
     $result = $num1/$num2; 
    } 
} 

print "\n"; 
print "result of $num1 $operation $num2 = $result"; 

Answer 1

使用EQ，而不是==的字符串比較。

print "Please Enter Your First Number\n"; 
$num1 = <>; 
chomp $num1; 

print "Please Enter Your Operation\n"; 
$operation = <>; 
chomp $operation; 

print "Please Enter Your Second Number\n"; 
$num2 = <>; 
chomp $num2; 

if ($operation eq "+") { 
    $result = $num1 + $num2; 
} 
elsif ($operation eq "-") { 
    $result = $num1 - $num2; 
} 
elsif ($operation eq "*") { 
    $result = $num1 * $num2; 
} 
elsif ($operation eq "/") { 
    if ($num2 == 0) { 
     print "Cant Divide be Zero Mate\n"; 
    } 
    else { 
     $result = $num1/$num2; 
    } 
} 

print "\n"; 
print "result of $num1 $operation $num2 = $result"; 

輸出：

Please Enter Your First Number 
6 
Please Enter Your Operation 
/
Please Enter Your Second Number 
3 

result of 6/3 = 2