在我的代码中使用Perl进行整数除法不会'；行不通

在下面的Perl程序中，由于某种原因，整数的除法不会发生。相反，控制台输出两个整数的concatation，division的if语句也不会发生。为什么会这样？谢谢

代码：

打印“请输入您的第一个号码\n”；
$num1=；咀嚼$num1；
打印“请输入您的操作\n”；
$operation=；chomp$操作；
打印“请输入您的第二个号码\n”；
$num2=；咀嚼$num2；
如果（$operation==“+”）{
$result=$num1+$num2；
}elsif（$operation==“-”）{
$result=$num1-$num2；
}elsif（$operation==“*”）{
$result=$num1*$num2；
#这里的问题是：
}elsif（$operation==“/”）{
如果（$num2==0）{
打印“不能分割为零匹配\n”；
}否则{
$result=$num1/$num2；
}
}
打印“\n”；
打印“$num1$operation的结果$num2=$result”；

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

---

我是perl新手，你能举个例子吗？哦，eq是字符串比较的，==是数字比较的吗？@KingMak Yep，就是这样-

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