perl学习之nagios脚本

发布时间：2020-03-18 12:38:37 阅读：734 作者：woai2607 栏目：移动开发

开发者测试专用服务器限时活动，0元免费领，库存有限，领完即止！点击查看>>

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

亿速云「云服务器」，即开即用、新一代英特尔至强铂金CPU、三副本存储NVMe SSD云盘，价格低至29元/月。点击查看>>

向AI问一下细节

perl学习之nagios脚本

猜你喜欢

最新资讯

相关推荐

开发者交流群：

相关标签