我的 Perl 脚本出了什么问题？

Question

下面是我的代码，基本上，如果答案是“Y”，那么脚本会运行一条消息，如果是其他内容，则脚本会关闭。

#! usr/bin/perl
print "Do you wish to run Program? [Y/N]:";
$answer = <>;
if($answer == "Y") {
 print "COOOL\n";
} else {
 system "exit"
}

Answer 1

您正在使用数字 == 来比较字符串。

您可能想使用“eq”：

if($answer eq "Y") {
    print "COOOL\n";
} else {
     system "exit"
}

正如其他人建议的那样，您需要删除末尾的换行符。使用chomp。

Answer 2

除了 chomp/chop 和 eq 与 == 之外，您还需要记住答案的大小写。您正在测试大写“Y”，我敢打赌您正在输入小写“y”，并且它们不相等。我建议使用：

 if (($answer eq 'y') || ($answer eq 'Y')) {

或使用uc。

Answer 3

如果你问的话，Perl 会准确地告诉你问题是什么。只需将“使用警告”添加到您的代码中即可。

#!/usr/bin/perl
use warnings;

print "Do you wish to run Program? [Y/N]:";
$answer = <>;
if($answer == "Y") {
 print "COOOL\n";
} else {
 system "exit"
}

然后运行它，给出：

$ ./y
Do you wish to run Program? [Y/N]:Y
Argument "Y" isn't numeric in numeric eq (==) at ./y line 6, <> line 1.
Argument "Y\n" isn't numeric in numeric eq (==) at ./y line 6, <> line 1.
COOOL

如果您还添加“使用诊断”，那就更好了。

$ ./y
Do you wish to run Program? [Y/N]:Y
Argument "Y" isn't numeric in numeric eq (==) at ./y line 7, <> line 1 (#1)
    (W numeric) The indicated string was fed as an argument to an operator
    that expected a numeric value instead.  If you're fortunate the message
    will identify which operator was so unfortunate.

Argument "Y\n" isn't numeric in numeric eq (==) at ./y line 7, <> line 1 (#1)
COOOL

如果让 Perl 帮助您发现错误，那么用 Perl 编程就会容易得多。

Answer 4

删除换行符。 == 用于数字相等，对于字符串，您需要 eq。

chomp($answer);
if($answer eq "Y") {

Answer 5

当您想知道发生了什么时，请开始跟踪您的输入。确保它是您所认为的那样：

#!/usr/bin/perl
use strict;
use warnings;

print "Do you wish to run Program? [Y/N]:";
$answer = <>;

print "Answer is [$answer]\n";

由于您在变量周围放置了大括号，因此您会注意到任何额外的空格。您应该在 $answer 中看到额外的内容：

Answer is [Y
]

这是您需要采取措施来处理该问题的线索。

而且，严格和警告可以帮助您在问题出现之前发现问题。

Answer 6

也许使用 Term::Prompt 或 IO::Prompt 会更好。不要重新发明轮子:)

use IO::Prompt;
prompt -yn, 'Do you wish to run Program?' or exit;

Answer 7

您有换行符，chomp $answer
和$answer eq "Y"