perl warning

[banye11dian]

在进行字符串或者数字的比较的时候，总会有一条提示
Use of uninitialized value in numeric eq (==) at string.pl line 48
Use of uninitialized value in string eq at string.pl line 97.
代码很简单，类似于
my $fill=1;
if($fill == 1)
{
print "Got it";
}
大家有什么办法可以将那条提示给消除掉，还是我的代码有什么问题？

[fibbery]

if(defined $fill && $fill == 1) 
{ 
    print "Got it"; 
} 

[fibbery]

if(defined $fill && $fill == 1) 
{ 
    print "Got it"; 
}

[iambic]

你贴的代码不对劲。贴完整代码，然后标上哪一行是48行，哪一行是97行。

[kindTerry]

你给出的例子不会报错，建议你贴出string.pl的代码

[banye11dian]

程序是可以运行的，只是在运行的时候会有那么一条提示，遇到过吗？

[kindTerry]

具体问题要具体分析，你不贴代码没法帮你。
warning的意思是说你在作比较的时候变量没有初始化，建议在定义变量的是时候赋零或空串

[hu20090330]

这样是有问题的，不能有结果的，￥fill 没有初始化

 
$fill=1;
if( $fill == 1) 
{ 
    print "Got it"; 
} 

[cyler123]

可能是你的变量的类型是不能确定的。
比如，如果用HTML::TableEx....（记不清了），获取表格失败的话，用于接收返回值的变量的值，就是undef的，undef既不是数字也不是字符串，所以，perl会抱怨说你用来比较的东西没有确切定义。
这里的警告就是说：未初始化的值
可以忽略（个人经验）