perl学习之nagios脚本

linuxx

• [Perl] 纯文本查看 复制代码

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

0

男人有冲动可能是爱你，也可能是不爱，但没有冲动肯定是不爱!

wzh789

我是来刷分的，嘿嘿

king71

支持一下:lol

q666123

只有假货是真的，别的都是假的!

fswdnr

商女不知亡国恨、妓女不懂婚外情。

fateame

睡眠是一门艺术——谁也无法阻挡我追求艺术的脚步！