perl使用use warnings有什么作用？

lzj24

在perl脚本中使用了use warnings,然后运行perl脚本 ：
perl check_oda_mailspeed.pl 400 600 60
出现了如下报错：
Use of uninitialized value in numeric gt (> at check_oda_mailspeed.pl line 106.
Use of uninitialized value in concatenation (.) or string at check_oda_mailspeed.pl line 107.

贴出104-109行的代码如下所示：
104   my $end = Time::HiRes::gettimeofday;
105   my $usedtime = sprintf("%.2f",$end - $begin);
106   if ($result > $critical) {
107            print "CRITICAL - Delivery was slow, return $result more then $critical, ${usedtime}sec response time.\n";
108            exit 2;
109   }

不知道上面的报错是什么意思
求教各位大侠
$result、$critical在前面都已经定义好的了：
my $critical;
my $result;

去掉use warnings 则脚本运行正常，没有报错。

wyc198801wyc

虽然不是太明白，但是感觉你贴出来的没错，check_oda_mailspeed.pl 里应该有错或者是警告

zhlong8

$critical 这个变量很可能你就没赋值，还是默认的 undef 。对一个没赋值过的变量进行数值的比较操作你的代码真的正确吗？

和 strict 一样不默认打开 warnings 更多的是为了兼容老旧的代码，这其实是解释器内置的功能写 Perl 的标配，可以帮你避免大量的逻辑错误。所以别想着去掉了它你的代码就“正确”了

104359176

> => gt
< => lt

zhonghua7896321

$result，$critica这两个变量中某个或两个的值为空，就会出现这个告警信息
影响不大的话，可以忽略。

jason680

回复 1# lzj24

Use of uninitialized value in numeric gt (> at check_oda_mailspeed.pl line 106.
Use of uninitialized value in concatenation (.) or string at check_oda_mailspeed.pl line 107.


$result、$critical在前面都已经定义好的了：
my $critical;   


uninitialized value(未给值)与定义两件事...

Crisewng

perldoc perllexwarn warnings的描述查这里吧