Perl警告：在连接或字符串中使用未初始化的值
|
我越来越：
"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可能包含一些具有未定义值的元素,可能是因为填充@row的数据库中的一个或多个列为NULL.可以模仿行为,同时仍然使用简单的Perl单行连接,如下所示：
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正在尝试加入一个没有字符串化的值而不从“undefined”升级到“defined”.字符串化undef会产生此警告消息,提醒您可能正在做一些无意识且不正确的事情. 一个更简单的例子可能是这样的： $perl -we 'my $scalar; print "$scalarn";' Use of uninitialized value $scalar in concatenation (.) or string at -e line 1. 同样,我们得到警告,因为我们将未定义的值插入到字符串中.插值会导致字符串化,并且未定义值的字符串化通常会发出警告,让您知道您可能犯了错误. 如果您不介意将undef升级为空字符串,则可以执行以下操作： print FH join( $delimiter,map { defined ? $_ : '' } @row ) . "n";
这会在将其交给join()之前预处理@row.对于@row中的每个元素,如果元素具有未定义的值,则该值将替换为空字符串,该字符串已定义但在视觉上很安静. 另一种可能是$delimiter未定义.通过打印来测试它,如果事实证明是这样的话,你需要采取的修复步骤就是确保它实际上包含一个值. 简单地在严格的词汇范围内消除警告也是可以的,尽管从哲学的角度来看,一种方法可以消除原因,另一种方法可以消除其中一种症状. “没有警告’未初始化’;其他地方描述的方法就是这样做;沉默警告.当你知道你正在做一些完美的事情时,你会这样做好的,但是你也知道Perl会警告你,因为很多次这是一个错误.这可能就是这样的情况;你可能会非常高兴只是在连接内部发生未定义值的静默字符串化.如果是这种情况,请继续并压制警告.最重要的是你知道它意味着什么,验证是什么导致它,然后做出明智的决定,该怎么办. （编辑：李大同） 【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容! |