perl

sunlove521

#!/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);


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

quanpai

具体哪一句，你不能一句都不看吧

sunlove521

前面两个shift   还有<CMD>;看不懂

laputa73

总体的意思就是读nagios发来的文件里面有没有包含输入关键字的高级别的告警信息
然后不同的退出码
shift和<>,这个是基本的perl操作符吧
其实猜也能猜出来.