Perl 脚本没有运行条件语句？

Question

我知道我是 Perl 的新手所以请原谅我的愚蠢错误。我正在制作一个需要用户输入的计算器，但它不工作。它运行良好，花花公子，直到 if 语句，当它到达 if 语句时，它只是结束程序。我翻阅了论坛和书籍，但找不到任何东西。

use warnings;

print "number\n";
$number = <STDIN>;
# Asks the user for what number to calculate.

print "Second number\n";
$secnumber = <STDIN>;
# Asks the user for second number to calculate the first number with

print "Calculation\n Multiplication  x\n Addition  +\n Substraction  -\n ";
$calculation = <STDIN>;
# Asks the user for which calculation to make.

if ($calculation eq "x") {
    print "$number" . 'x' . "\n$secnumber" . '=' . "\n" . ($number * $secnumber);
} elsif ($calculation eq "+") {
    print "$number" . '+' . "\n$secnumber" . '=' . "\n" . ($number + $secnumber);
} elsif ($calculation eq "-") {
    print "$number" . '-' . "\n$secnumber" . '=' . "\n" . ($number - $secnumber);
}
# Displays the calculation and answer.

Answer 1

分配给 $calculation 的值将包含换行符。所以在 unix 类型系统上，分配给 $calculation 的值实际上是 +\n

您需要使用 chomp 函数来删除换行符。您可以通过此 URL http://perldoc.perl.org/functions/chomp.html 找到有关 chomp 的更多信息

您可以通过两种方式应用 chomp。您可以让它在阅读时选择换行

chomp ($calculation = <STDIN>);

或者您可以在作业完成后进行。

$calculation = <STDIN>;
chomp ($calculation);

另外，作为 Perl 的新用户，我建议您除了使用 warning pragma 之外，还应该使用 strict pragma 来帮助您保持良好的可维护代码。

use warnings;
use strict;