perl學習之nagios腳本

發布時間：2020-03-18 12:38:37 來源：網絡閱讀：736 作者：woai2607 欄目：移動開發

#!/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。

向AI問一下細節

perl學習之nagios腳本

猜你喜歡

最新資訊

相關推薦

相關標簽