忘记密码   免费注册 查看新帖 |

ChinaUnix.net

  平台 论坛 博客 文库 频道自动化运维 虚拟化 储存备份 C/C++ PHP MySQL 嵌入式 Linux系统
论坛 程序设计 Perl perl
最近访问板块 发新帖
查看: 1904 | 回复: 3

perl [复制链接]

论坛徽章:
0
发表于 2017-12-07 09:55 |显示全部楼层
#!/usr/bin/perl --
shift;
shift;
$name = shift;
open(CMD, "/bin/cat /tmp/nrpe.rev* | /bin/grep \" $name \" |");
$line = <CMD>;
close CMD;
print $line;
exit(2) if $line =~ /^CRITICAL/;
exit(1) if $line =~ /^WARNING/;
exit(0);


谁能帮我解释下这是什么意思啊

论坛徽章:
0
发表于 2017-12-07 17:06 |显示全部楼层
具体哪一句,你不能一句都不看吧

论坛徽章:
0
发表于 2017-12-07 18:02 |显示全部楼层
前面两个shift   还有<CMD>;看不懂

论坛徽章:
39
技术图书徽章
日期:2018-08-21 13:30:492015亚冠之首尔
日期:2015-11-04 22:25:43IT运维版块每日发帖之星
日期:2015-08-17 06:20:00寅虎
日期:2014-06-04 16:25:27狮子座
日期:2014-05-12 11:00:00辰龙
日期:2013-12-20 17:07:19射手座
日期:2013-10-24 21:01:23CU十二周年纪念徽章
日期:2013-10-24 15:41:34数据库技术版块每日发帖之星
日期:2015-12-01 06:20:00平安夜徽章
日期:2015-12-26 00:06:30技术图书徽章
日期:2018-08-21 13:30:242016科比退役纪念章
日期:2018-03-07 11:23:33
发表于 2017-12-11 08:35 |显示全部楼层
总体的意思就是读nagios发来的文件里面有没有包含输入关键字的高级别的告警信息
然后不同的退出码
shift和<>,这个是基本的perl操作符吧
其实猜也能猜出来.
您需要登录后才可以回帖 登录 | 注册

本版积分规则

  

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

清除 Cookies - ChinaUnix - Archiver - WAP - TOP