Perl 警告：在连接或字符串中使用未初始化的值

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”块中的“print ... join ....”行，但我不确定100％是什么导致它以及如何纠正它。

$delimiter 早先被初始化为我的 $delimiter = "|" 并且@row 正在从上一行的 $sth 操作中获取其值。

这是关于@row 值的“时间”问题还是正在处理的实际 SQL 查询文件中的某些问题，如警告的“< fh> 行 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在将@row交给join()之前对其进行预处理。 对于@row每个元素，如果该元素具有未定义的值，则该值将替换为一个空字符串，该字符串已定义但视觉上是安静的。

另一种可能性是$delimiter未定义。 通过打印来测试它，如果结果确实如此，您需要采取的修复它的步骤是简单地确保它实际上包含一个值。

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