linux+perl的作用,perl使用use warnings有什么作用？

在perl脚本中使用了use warnings,然后运行perl脚本 ：

perl test.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   }

不知道上面的报错是什么意思:dizzy:

求教各位大侠

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

my $critical;

my $result;

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

分享至：