为什么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/// ）。 变量的默认值是undefined（ 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（）来查找它的调用位置并检查其中的数据。
• 完全没有输出！ 也许你看错了源文件或错误的行。 （我不怀疑这是这种情况，但它确实发生在我身上）。
• “测试：定义：'一些数据'”---哎呀。 在stackoverflow上提出一个问题。