perl - 在字符串 eq 中使用未初始化的值。左还是右？

Question

我正在清理一些代码，我在我们的服务器日志中看到 perl 错误是...

Use of uninitialized value in string eq at .....

看看代码，这行看起来像这样......

if ($level1 eq $level2) {

好吧，很公平。我想我的问题是这样的。是 $level1 还是 $level2 有问题？

我写了一个快速测试来尝试在本地复制它，它看起来像这样......

#!/usr/bin/perl
use warnings;
my $a;
my $b;

if ($a eq $b){
    print "....";
}

我得到一个信息量更大的错误。

Use of uninitialized value $a in string eq at ./warntest.cgi line 7.
Use of uninitialized value $b in string eq at ./warntest.cgi line 7.

这似乎是不一致的行为。有人有线索吗？珍妮

Answer 1

在 perl 5.10 的警告中(如果可能的话)添加了 undef 变量的指示(非常欢呼)。您的服务器可能使用的是较旧的 perl。