Perl:数组中的 undef 元素

Question

我在一个数组中定义了一些元素:

my @arrTest;
$arrTest[0]=1;
$arrTest[2]=2;

#Result for @arrTest is: (1, undef, 2)


if($arrTest[1]==0)
{
    print "one\n";
}
elsif($arrTest[1] == undef)
{
    print "undef\n";
}

我认为它应该打印“undef”。但它在这里打印“一个”...

这是否意味着 $arrTest[1]=undef=0？

如何修改“if条件”来区分数组元素中的“undef”？

Answer 1

代码 $arrTest[1] == 0 中的运算符 == 将 $arrTest[1] 放入 numeric context因此，如果需要，它的值会被转换为一个数字，解释器可以做的最好的，并在比较中使用。并且当数值测试中的变量尚未定义时，使用 0 以便测试评估为真(变量保持 undef)。

大多数情况下，当我们需要这样做时，我们会听到它(有一些异常(exception))——如果我们有 use warnings; 那就是(最好在程序开始时) ^† 请始终使用 warnings打开并使用 strict .他们直接提供帮助。

为了测试定义性，有 defined

if (not defined $arrTest[1]) { ... }

---

^†一个演示

perl -wE'say "zero" if $v == 0; say $v; ++$v; say $v'

-w启用警告。这个命令行程序打印

Use of uninitialized value $v in numeric eq (==) at -e line 1.
zero
Use of uninitialized value $v in say at -e line 1.

1

注意 ++ 如何不发出警告，这是上述异常(exception)之一。