perl use uninitialized value,之前运行Ok的,不影响结果但多出来很多这样语句.

来源：学生作业帮编辑：作业帮分类：综合作业时间：2024/05/12 17:57:41

perl use uninitialized value,之前运行Ok的,不影响结果但多出来很多这样语句.
Use of uninitialized value in split at /ShipWeb.pm line 84.
Use of uninitialized value in split at /ShipWeb.pm line 85.
Use of uninitialized value in split at /ShipWeb.pm line 86.
Use of uninitialized value in split at ShipWeb.pm line 87.
Use of uninitialized value in split at ShipWeb.pm line 88.
82 foreach my $i (0..$#list){
83 ($sShip,) = split(/ /,$list[$i]{$column[0]});
84 ($PN,) = split(/ /,$list[$i]{$column[1]});
85 ($Lcycle,) = split(/ /,$list[$i]{$column[2]});
86 ($WIPrev,) = split(/ /,$list[$i]{$column[3]});
87 ($FGIrev,) = split(/ /,$list[$i]{$column[4]});
88 ($ShipMode,) = split(/ /,$list[$i]{$column[5]});
89 if ($ShipMode){
90 print FH "$sShip|$PN|$Lcycle|$WIPrev|$FGIrev|$ShipMode\n";}
91 }

1) 定义 $column 的时候,把字串写错了.
For example:----------
$list[$i]->{col1} = 1
$list[$i]->{col2} = 2
$list[$i]->{col3} = 3
$list[$i]->{col4} = 4
$list[$i]->{col5} = 5
$column[0] = "col1"
$column[0] = "xol2"
$column[0] = "xol3"
$column[0] = "xol4"
$column[0] = "xol5"
----------------------------
2) 定义 $list 的时候,hash key 没有正确的定义.
$list[$i]->{xol2} = 2
$list[$i]->{xol3} = 3
等等.
解决方法：
在for前一行写上如下两行.然后实行一下,再看看error log file.
#use Data::Dumper;
warn Dumper $list[0]; #$list的第一个要素肯定存在.
warn Dumper @column;
die;
你看看list中的 hash key 和 @column 中定义的 key 是否相同.
回避方法：
把有可能出错的地方都实行一下 if defined .
if( defined $list[$i]{$column[1]} ) {
( $PN ,) = split( / / ,$list[$i]{$column[1]} );
}

Perl Use of uninitialized value in concatenation (.) or stri perl提问关于 Use of uninitialized value in string eq at line 48 这个perl运算出来什么结果? matlab反三角函数结果为什么运行不出来呢? 语句print 37 mod 5 运行的结果 Perl中以my开头的语句,my是什么作用? 如何运行一个perl程序英语奥林匹克比赛?2008年初三组的结果出来了,但我搜查不出来,请帮帮忙! 假如DNA碱基对改变但不影响氨基酸从而不影响蛋白质那么这样叫基因结构的改变吗? 这两条语句执行出来的结果相同么 lingo改错,写的程序怎么运行不出来一个LINGO的程序结果运行不出,