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。

北海网站建设公司成都创新互联,北海网站设计制作，有大型网站制作公司丰富经验。已为北海上千多家提供企业网站建设服务。企业网站搭建\成都外贸网站建设公司要多少钱，请找那个售后服务好的北海做网站的公司定做！

文章标题：perl学习之nagios脚本
浏览地址：http://cdiso.cn/article/pscdis.html