#!/usr/bin/perl 
"/usr/lib64/nagios/plugins"
'h=s'
"http://$HOSTADDRESS:8080/health.html"
''
"sling is running now!\n"
'OK'
else
"sling is not running,health page not found!!\n"
'UNKNOWN'

根據(jù)查看的nagios官網(wǎng)，如果用perl寫監(jiān)控腳本，必須使用strict模塊，定義的所有變量都必須使用my聲明，Getopt::Long模塊可以為perl腳本傳參，lib是指定nagios里utils.pm的位置，引用utils模塊，nagios自帶的%ERRORS可以為我們返回狀態(tài)code。

創(chuàng)新互聯(lián)建站總部坐落于成都市區(qū)，致力網(wǎng)站建設(shè)服務(wù)有成都網(wǎng)站建設(shè)、網(wǎng)站設(shè)計、網(wǎng)絡(luò)營銷策劃、網(wǎng)頁設(shè)計、網(wǎng)站維護、公眾號搭建、微信小程序開發(fā)、軟件開發(fā)等為企業(yè)提供一整套的信息化建設(shè)解決方案。創(chuàng)造真正意義上的網(wǎng)站建設(shè)，為互聯(lián)網(wǎng)品牌在互動行銷領(lǐng)域創(chuàng)造價值而不懈努力！

另外有需要云服務(wù)器可以了解下創(chuàng)新互聯(lián)scvps.cn，海內(nèi)外云服務(wù)器15元起步，三天無理由+7*72小時售后在線，公司持有idc許可證，提供“云服務(wù)器、裸金屬服務(wù)器、高防服務(wù)器、香港服務(wù)器、美國服務(wù)器、虛擬主機、免備案服務(wù)器”等云主機租用服務(wù)以及企業(yè)上云的綜合解決方案，具有“安全穩(wěn)定、簡單易用、服務(wù)可用性高、性價比高”等特點與優(yōu)勢，專為企業(yè)上云打造定制，能夠滿足用戶豐富、多元化的應(yīng)用場景需求。

分享文章：perl學(xué)習(xí)之nagios腳本-創(chuàng)新互聯(lián)
當(dāng)前網(wǎng)址：http://weahome.cn/article/ipsps.html