忘记密码   免费注册 查看新帖 | 论坛精华区

ChinaUnix.net

  平台 论坛 博客 认证专区 大话IT HPC论坛 徽章 文库 沙龙 自测 下载 频道自动化运维 虚拟化 储存备份 C/C++ PHP MySQL 嵌入式 Linux系统
最近访问板块 发新帖
查看: 2543 | 回复: 6

perl使用use warnings有什么作用? [复制链接]

论坛徽章:
0
发表于 2016-01-12 01:41 |显示全部楼层
本帖最后由 lzj24 于 2016-01-14 10:01 编辑

在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 则脚本运行正常,没有报错。

论坛徽章:
0
发表于 2016-01-12 09:20 |显示全部楼层
虽然不是太明白,但是感觉你贴出来的没错,check_oda_mailspeed.pl 里应该有错或者是警告

论坛徽章:
45
15-16赛季CBA联赛之广夏
日期:2017-06-02 21:46:59天蝎座
日期:2015-03-25 16:56:49双鱼座
日期:2015-03-25 16:56:30摩羯座
日期:2015-03-25 16:56:09巳蛇
日期:2015-03-25 16:55:30卯兔
日期:2015-03-25 16:54:29子鼠
日期:2015-03-25 16:53:59申猴
日期:2015-03-25 16:53:29寅虎
日期:2015-03-25 16:52:29羊年新春福章
日期:2015-03-25 16:51:212015年亚洲杯之沙特阿拉伯
日期:2015-04-11 17:31:452015亚冠之布里斯班狮吼
日期:2015-07-13 10:44:56
发表于 2016-01-12 09:23 |显示全部楼层
$critical 这个变量很可能你就没赋值,还是默认的 undef 。对一个没赋值过的变量进行数值的比较操作你的代码真的正确吗?

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

求职 : 软件工程师
论坛徽章:
3
程序设计版块每日发帖之星
日期:2015-10-07 06:20:00程序设计版块每日发帖之星
日期:2015-12-13 06:20:00程序设计版块每日发帖之星
日期:2016-05-05 06:20:00
发表于 2016-01-12 14:38 |显示全部楼层
> => gt
< => lt

论坛徽章:
6
程序设计版块每日发帖之星
日期:2016-01-15 06:20:00操作系统版块每日发帖之星
日期:2016-01-16 06:20:00IT运维版块每日发帖之星
日期:2016-02-04 06:20:00数据库技术版块每日发帖之星
日期:2016-02-04 06:20:00程序设计版块每日发帖之星
日期:2016-02-10 06:20:01每日论坛发贴之星
日期:2016-02-10 06:20:01
发表于 2016-01-12 14:46 |显示全部楼层
$result,$critica这两个变量中某个或两个的值为空,就会出现这个告警信息
影响不大的话,可以忽略。

论坛徽章:
121
技术图书徽章
日期:2013-10-01 15:32:13戌狗
日期:2013-10-25 13:31:35金牛座
日期:2013-11-04 16:22:07巳蛇
日期:2014-05-09 16:43:18巨蟹座
日期:2014-10-23 17:48:38子鼠
日期:2013-11-18 18:48:57白羊座
日期:2013-11-29 10:09:11狮子座
日期:2013-12-12 09:57:42白羊座
日期:2013-12-24 16:24:46辰龙
日期:2014-01-08 15:26:12技术图书徽章
日期:2014-01-17 13:24:40巳蛇
日期:2014-02-18 14:32:59
发表于 2016-01-13 01:42 |显示全部楼层
回复 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(未给值)定义两件事...



论坛徽章:
0
发表于 2016-02-03 10:08 |显示全部楼层
perldoc perllexwarn warnings的描述查这里吧
您需要登录后才可以回帖 登录 | 注册

本版积分规则

  

北京盛拓优讯信息技术有限公司. 版权所有 京ICP备16024965号 北京市公安局海淀分局网监中心备案编号:11010802020122
广播电视节目制作经营许可证(京) 字第1234号 中国互联网协会会员  联系我们:
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP