为什么 Perl 在我的 CGI 脚本中抱怨“使用未初始化的值”？

Question

我正在清理我的 Perl 代码以用于生产版本，并在 Apache 错误日志中发现了一个奇怪的警告。

上面写着：

[Thu Nov 5 15:19:02 2009] Clouds.pm: Use of uninitialized value $name in substitution (s///) at /home/mike/workspace/olefa/mod-bin/OSA/Clouds.pm line 404.

相关代码在这里：

my $name         = shift @_;
my $name_options = shift @_;

$name_options = $name_options eq 'unique'     ? 'u'
              : $name_options eq 'overwrite'  ? 'o'
              : $name_options eq 'enumerate'  ? 'e'
              : $name_options =~ m/^(?:u|o|e)$/ ? $name_options
              : q();

if ($name_options ne 'e') {
   $name =~ s/ /_/g;
}

那么，为什么在明确初始化时会发出未初始化变量的警告？

Answer 1

警告只是意味着$name 从未填充过值，并且您尝试对其进行替换操作（s///）。变量的默认值未定义 (undef)。

回顾您的脚本，$name 从@_ 获取其值。这意味着@_ 为空，或者其第一个值为undef。

Answer 2

根据您的子例程需要做什么，在使用它们之前验证您的值。在这种情况下，因为您需要 $name 中的某些内容，如果该变量中没有某些内容，则 croak 中。你会从调用者的角度收到一条错误消息，然后你会找到罪魁祸首。

此外，您可以通过使其成为哈希查找来降低条件运算符链的复杂性，这也使您有机会初始化$name_option。在你的后备情况下，你离开$name_option undefined：

use 5.010;

use Carp;

BEGIN {
my %valid_name_options = map {
    $_
    substr( $_, 0, 1 ),
    } qw( unique overwrite enumerate );

some_sub {
    my( $name, $name_options ) = @_;

    croak( "Name is not defined!" ) unless defined $name;
    $name_options = $valid_name_options{$name_options} // '';

    if ($name_options ne 'e') {
        $name =~ s/ /_/g;
        }

    ...
    }
}

Answer 3

分而治之的调试

遇到“显然不可能”的错误是很常见的——乍一看。我通常会尝试使用简单的打印语句（或从程序中获取一些信息的等效方法：对于 CGI 脚本，简单的打印可能会破坏您的标题）来确认我的假设。

所以，我会写一个像

这样的声明

print "testing: ", defined($name)? "defined: '$name'" : "undef", "\n";

进入可疑行的代码。您可能会对可能的输出选项感到惊讶：

• "testing: undef" --- 这意味着您的函数是使用未定义的第一个参数调用的。不太可能但可能。您可能希望使用 caller() 来找出调用它的位置并检查那里的数据。
• 根本没有输出！也许您查看了错误的源文件或错误的行。 （我不怀疑这里是这种情况，但它确实发生在我身上）。
• “测试：定义：‘一些数据’”——哎呀。在 * 上提问。