小编Sen*_*mar的帖子

我正在学习Perl并遇到过这个问题

编写一个读取两个数字并执行以下操作的Perl程序:它打印错误:如果第二个数字为0,则不能除以零.

如果我输入第二个数字为零,我收到一个错误

Illegal division by zero at ./divide.pl line 13, <STDIN> line 2.

我正在使用以下代码

#!/usr/bin/perl

## Divide by zero program

print("Enter the first number: \n");
$input1 = <STDIN>;
chomp ($input);

print ("Enter the second number: \n");
$input2 = <STDIN>;
chomp ($input2);

$answer = $input1/$input2;

if ($input2 == 0)
{
 print("Error: can't divide by zero \n");
}

print("The answer is $answer \n");