【江楓】用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);                     
}