Perl警告: Use of uninitialized value in join or string

Question

我得到:

"Use of uninitialized value in join or string at ./test_script.pl line 69, <fh> line 91."

创建此警告的代码位于此处:

# Write results of SQL execution to output file
if ($@) { print "\n DB Error : ", $@; exit; }
open(FH, ">$output_file") or 
        die "\n cannot write to the file $output_file. Check the file permissions";
while(my @row= $sth->fetchrow_array) {
      print FH join($delimiter, @row). "\n";
}

它来自“while” block 中的“print ... join ....”行，但我不能 100% 确定导致它的原因以及如何纠正它。

$delimiter 已提前初始化为我的 $delimiter = "|"@row 正在从上一行中的 $sth 操作中获取其值。

这是关于 @row 值的“计时”问题，还是正在处理的实际 SQL 查询文件中的某些问题，如警告的“< fh> line 91”部分所示？关于如何避免警告的任何想法？顺便说一句，该脚本工作正常，它只是为获取的每个 @row 值生成一个警告，这会在大型数据集拉取上创建大量警告...

Answer 1

@row 可能包含一些具有未定义值的元素，可能是因为数据库中填充 @row 的一列或多列为 NULL。可以模仿该行为，同时仍然在简单的 Perl 单行代码中使用 join，如下所示:

perl -we 'my @array = ("Hello",undef,"world!"); print join("|",@array) . "\n";'

将产生的输出是:

Use of uninitialized value $array[1] in join or string at -e line 1.
Hello||world!

发生这种情况的原因是 join 试图连接一个未从“未定义”升级到“已定义”的情况下进行字符串化的值。字符串化 undef 会生成此警告消息，提醒您可能无意中执行了一些错误操作。

一个更简单的例子可能是这样的:

$ perl -we 'my $scalar; print "$scalar\n";'
Use of uninitialized value $scalar in concatenation (.) or string at -e line 1.

...或者...

perl -wE 'say "" . undef'

我们再次收到警告，因为我们将未定义的值插入到字符串中(在第一种情况下)，或强制字符串化(在第二种情况下)。插值会导致字符串化，而未定义值的字符串化通常会引发警告，让您知道您可能犯了错误。

如果您不介意将 undef 默默升级为空字符串，您可以这样做:

print FH join( $delimiter, map { defined ? $_ : '' } @row ) . "\n";

这会在将 @row 传递给 join() 之前对其进行预处理。对于 @row 中的每个元素，如果该元素具有未定义的值，则该值将被替换为空字符串，该字符串已定义但视觉上很安静。

另一种可能性是$delimiter未定义。通过打印来测试这一点，如果结果确实如此，则修复它所需的步骤就是简单地确保它确实包含一个值。

简单地在严格的词汇范围内消除警告也可以，但从哲学的角度来看，一种方法可以消除原因，另一种方法可以消除其中一种症状。其他地方描述的“no warnings 'uninitialized';”方法就是这样做的；使警告静音。当您知道自己正在完美地做某事时，您会这样做。好的，但您也知道 Perl 将会警告您这一点，因为很多时候这是一个错误。这可能是这样的情况；您可能会非常高兴让未定义值的静默字符串化在 join 内部发生。如果是这种情况，继续消除警告。最重要的是您知道它的含义，验证导致它的原因，然后就如何处理它做出明智的决定。