IF 语句出现意外结果：“string” <= 72 是真的吗？

Question

在下面的代码中，当我在输入处输入一些非数字字母（即 $temp）时，它会响应“太冷了！”而不是“无效”。我缺少什么？

#!/usr/bin/perl

print "What is the temperature outside? ";
$temp=<>;
if ($temp > 72) {
  print "Too hot!\n"; }
elsif ($temp <= 72) {
  print "Too cold!\n"; }
else {
  print "Temperature $temp is invalid.\n"; }

Answer 1

这是因为如果不能转换为数字，它将被视为 0。您应该先检查响应是否只有数字，或以任何其他方式限制输入，以便只能输入有效的数字。大致内容如下：（

print "invalid" if ($temp =~ /\D/);

如果 $temp 包含任何非数字字符，则打印无效。请注意，这可能会使“+”和“-”无效，但您明白了）。

Answer 2

数字比较运算符期望它们的参数是数字。如果您尝试使用数字比较来比较像 'foo' 这样的字符串，它将自动转换为数字 0，该数字小于 72.

如果您打开了警告，您就会被告知发生了什么事。

friedo$ perl -Mwarnings -E 'say "foo" < 72'
Argument "foo" isn't numeric in numeric lt (<) at -e line 1.
1

这就是为什么你应该始终以以下方式开始你的程序

use strict;
use warnings;

Answer 3

将无效的数字字符串转换为数字会导致 0，因此您可以使用如下所示的内容来查看输入是否确实有效。

print "What is the temperature outside? ";

$temp=<>;

if ($temp == 0 && $temp ne '0') {
  print "Temperature $temp is invalid.\n"; }
elsif ($temp > 72) {
  print "Too hot!\n"; }
elsif ($temp <= 72) {
  print "Too cold!\n"; }

解释：如果输入字符串被转换为 0（零），尽管字符串本身不等于“0”（零），则输入不是数字，因此；无效的。

---

您还可以使用正则表达式检查输入是否仅由 [0-9.] 组成，这将确保它是有效的数字（另请记住，数字不以 0 开头（零），然后是后面的数字，除非您使用八进制书写

注意：请记住在进行上述检查之前删除输入字符串中的空格。

Answer 4

正是由于这个原因（以及许多其他原因），如果启用“使用警告”，情况会好得多：

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

Answer 5

删除尾随换行符后尝试一下，这可能是导致 Perl 将其视为字符串而不是数字的原因：

chomp( my $test = <> );