perl学习之nagios脚本

 
 

#!/usr/bin/perl?
  
  
use?strict;?
  
  
use?Getopt::Long;?
  
  
use?LWP::Simple;?
  
  
use?lib?"/usr/lib64/nagios/plugins";?
  
  
use?utils?qw?($TIMEOUT?%ERRORS?&print_revision?&support);?
  
  
my?$HOSTADDRESS;?
  
  
Getopt::Long::GetOptions(?
  
  
????????'h=s'?=>?$HOSTADDRESS?
  
  
);?
  
  
if?(defined?($HOSTADDRESS)){?
  
  
????????my?$content?=?get("http://$HOSTADDRESS:8080/health.html");?
  
  
????????????????if?(?$content?ne?''?){?
  
  
????????print?"sling?is?running?now!n";?
  
  
????????exit?$ERRORS{'OK'};?
  
  
}else{?
  
  
????????print?"sling?is?not?running,health?page?not?found!!n";?
  
  
????????exit?$ERRORS{'UNKNOWN'};?
  
  
}?
  
  
}?
 
 

根据查看的nagios官网，如果用perl写监控脚本，必须使用strict模块，定义的所有变量都必须使用my声明，Getopt::Long模块可以为perl脚本传参，lib是指定nagios里utils.pm的位置，引用utils模块，nagios自带的%ERRORS可以为我们返回状态code。