用Perl的hash数组实现个性化监控

#!/usr/bin/perl -w
# creator: jiangfeng
############################################################
use strict;

# 配置各主机各KPI的检查门限
# 这里配置了两个门限值，达到第一个值发IM提醒，达到第二个值发手机短信
#      server, load1 load2
my %cutoff=("db1", [ 30,  40 ],
       "db2", [ 20,  35 ],
       "db3", [ 10,  18 ]
           );

# 配置各个门限值的数组中的位置，这样在以后即使修改门限的位置，也不需要修改功能代码
# 将配置和功能分开，将极大的简化后续维护工作
my ($load1,$load2)=(0,1);
############################################################
# 检查load的函数
sub check_load{
  my($server)=@_; 
  my $load=get_server_load(); #获得数据库主机当前load，具体实现这里就不赘述了
  my $cutoff1=$cutoff{$server}[$load1];
  my $cutoff2=$cutoff{$server}[$load2];
 
  if ( $load > $cutoff2){
    my $mesg=$server." load more than ".$cutoff2.",now is ".$load."\n";
    send_mobile($server,$mesg);  # 大于load2，发送手机告警
  }
  elsif( $load > $cutoff1){
    my $mesg=$server." load more than ".$cutoff1.",now is ".$load."\n";
    send_wangwang($server,$mesg); # 大于load1，发送旺旺告警
  }
}
############################################################
#循环检查所有主机的load
foreach my $server(keys(%cutoff)){     
  print "---- ".$server." -----\n";
  check_load($server);                     
}