定义了一些字符串值（“0”、“”和“”），但是（==undef）

Question

在我的 perl 脚本中，我使用了 if ($a == undef) 条件，我认为它与 if (not defined $a) 相同，其中 $a 是从 csv 文件中读取的字符串。但是，我注意到定义了几个字符串值（"", " ", "0", "-0", "+0", "@", "a"，以及许多其他空格和特殊字符），还有undef。如果undef 仅用于数值，则应通过"0"、"+0" 和"-0"。谁能解释一下？我现在明白了，我不应该用if ($a == undef) 代替if (not defined $a)。

我的测试代码是：

@a_array = ("-1", "-0", "0", "+0", "1", "", " ", "@", "a", "\$", "-");
undef $a;
test_a();

foreach $a (@a_array) {
    $len_a = length($a);
    test_a();
}

sub test_a {
    if (defined $a) { print "a = $a is defined;  "} else {print "a = $a not defined; "}; 
    if ($a == undef) { print "a = $a (== undef);  "} else {print "a = $a (!= undef); "}; 
    if (length($a) > 0){ print "length of a is $len_a > 0 \n"} else {print "length of a is $len_a !> 0 \n"};
}

Answer 1

Perl 有两个相等运算符：== 和 eq。 == 测试每个值的数字形式是否在数字上相等。 eq 测试每个值的字符串形式是否在字典上相等。 undef 既不是字符串也不是数字，如果用作字符串则相当于空字符串，如果用作数字则相当于 0（空字符串也是如此，任何不开头的字符串也是如此）看起来像数字的东西）。发生这种情况时，您通常会收到警告。

要测试undef，不应涉及等价测试：使用defined 函数。只有定义了，才有有意义的字符串或数值，可以做后续的测试。

length 函数在传递undef 时返回undef，所以如果你想知道一个标量是否既定义了又不是长度为0，你只需要一个布尔检查：if (length $x)。 0 和undef 都是错误结果。请注意，在 Perl 5.12 之前，这会导致警告，因为 length undef 试图将 undef 用作字符串，就像 eq 一样。