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

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

創新互聯建站總部坐落于成都市區，致力網站建設服務有成都網站建設、網站設計、網絡營銷策劃、網頁設計、網站維護、公眾號搭建、微信小程序開發、軟件開發等為企業提供一整套的信息化建設解決方案。創造真正意義上的網站建設，為互聯網品牌在互動行銷領域創造價值而不懈努力！

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

新聞名稱：perl學習之nagios腳本-創新互聯
網址分享：http://www.yuzhuanjia.cn/article/ipsps.html