perl snmp rrdtool 画图

在上一篇文章中，有兄弟问我要code source，因前面写的数据收集用的是本地获取的，所以就想先改进下数据收集方式，再发出来。今天，我采用snmp方式把数据收集出来，并画图。

以下代码仅供参考:

 
 

#!/usr/bin/perl 
  
  
use Net::SNMP; 
  
  
use RRDs; 
  
  
 
  
  
my @hosts=("localhost","127.0.0.1","192.168.x.y"); 
  
  
my $debug=1; 
  
  
my $rrd_path="/usr/rrd/"; 
  
  
my $pic_path="/usr/rrd/pic/"; 
  
  
my $oid=".1.3.6.1.4.1.2021.51.101.1"; 
  
  
 
  
  
sub CREATERRD{ 
  
  
my ($rrdname)=shift; 
  
  
  
  
  
RRDs::create("$rrdname", 
  
  
 "--step", 300, 
  
  
 "DS:1min:GAUGE:600:U:U", 
  
  
 "DS:5min:GAUGE:600:U:U", 
  
  
 "DS:15min:GAUGE:600:U:U", 
  
  
 "RRA:AVERAGE:0.5:1:600", 
  
  
 "RRA:AVERAGE:0.5:6:700", 
  
  
 "RRA:AVERAGE:0.5:24:775", 
  
  
 "RRA:AVERAGE:0.5:288:797", 
  
  
 ); 
  
  
 my $ERROR = RRDs::error; 
  
  
 if ($ERROR){ 
  
  
 print "ERROR unable to create ${ERROR} \n " if $debug; 
  
  
 print "create no\n" if $debug; 
  
  
 return 0; 
  
  
}else{ 
  
  
 print "$rrdname createok\n" if $debug; 
  
  
 return 1; 
  
  
 } 
  
  
} 
  
  
 
  
  
sub UPDATERRD{ 
  
  
    my ($rrdname,$L1min,$L5min,$L15min)=@_; 
  
  
    RRDs::update ("$rrdname","N:$L1min:$L5min:$L15min"); 
  
  
    my $ERROR=RRDs::error; 
  
  
    if ($ERROR){ 
  
  
        print "ERROR unable to update ${ERROR} \n" if $debug; 
  
  
        return 0; 
  
  
    }else{ 
  
  
        print "update success\n" if $debug; 
  
  
        return 1; 
  
  
    } 
  
  
} 
  
  
 
  
  
 
  
  
sub GRAPHPNG{ 
  
  
    my ($rrdfile,$starttime)=@_; 
  
  
    my $rrdtitle1; 
  
  
    if($rrdfile=~/(.*)\.rrd$/i){ 
  
  
        $rrdtitle1=$1; 
  
  
         
  
  
    }else{ 
  
  
        $rrdtitle1=$rrdfile; 
  
  
    } 
  
  
    my $pngfile=$pic_path.$rrdtitle1.".png"; 
  
  
    print $pngfile."\n" if $debug; 
  
  
    my $rrdfile=$rrd_path.$rrdfile; 
  
  
RRDs::graph($pngfile, 
  
  
'--title',$rrdtitle1, 
  
  
'--font', 'TITLE:10:', 
  
  
'--font', 'LEGEND:10:', 
  
  
'--base',1000, 
  
  
'--height',120, 
  
  
'--width',600, 
  
  
'--vertical-label','cpu LoadAverage', 
  
  
'--start',-$starttime, 
  
  
"DEF:1min=$rrdfile:1min:AVERAGE", 
  
  
"DEF:5min=$rrdfile:5min:AVERAGE", 
  
  
"DEF:15min=$rrdfile:15min:AVERAGE", 
  
  
"AREA:1min#EACC00FF:1Min Average", 
  
  
'GPRINT:1min:LAST: Current\:%8.2lf%s\n', 
  
  
"AREA:5min#EA8F00FF:5Min Average", 
  
  
'GPRINT:5min:LAST:Current\:%8.2lf%s\n', 
  
  
"AREA:15min#FF0000FF:15Min Average", 
  
  
); 
  
  
if (my $ERROR = RRDs::error) { 
  
  
print "ERROR: $ERROR\n" if $debug; 
  
  
return 0; 
  
  
} 
  
  
} 
  
  
 
  
  
sub GETSNMP { 
  
  
    my $s = shift; 
  
  
    my $oid = shift || return "U"; 
  
  
    my $response = $s->get_request($oid); 
  
  
    my $retval = $response->{$oid} || "U"; 
  
  
    print "$oid -> $retval\n" if $debug; 
  
  
    return ($retval =~ /(\d+)/) ? $retval : 'U'; 
  
  
} 
  
  
 
  
  
foreach my $ip(@hosts){ 
  
  
     #create rrd 
  
  
     my $rrd_filename = "$rrd_path$ip-loadaverage.rrd"; 
  
  
     print "$rrd_filename\n" if $debug; 
  
  
     unless(-e $rrd_filename){ 
  
  
         &CREATERRD($rrd_filename); 
  
  
     } 
  
  
 
  
  
    #get data 
  
  
     my($s, $err) = Net::SNMP->session( 
  
  
     -hostname => $ip, 
  
  
     -community => "CHKTIME", 
  
  
     -timeout => 1, 
  
  
     -version => 2 
  
  
     );    
  
  
 
  
  
    my $LoadAverage = GETSNMP($s,$oid); 
  
  
    print $LoadAverage."\n" if $debug; 
  
  
    my ($L1m,$L5m,$L15m)=split(" ",$LoadAverage); 
  
  
    print "\n".$L1m."\t".$L5m."\t".$L15m."\n" if $debug; 
  
  
    
  
  
    #update rrd 
  
  
    if( -e $rrd_filename){ 
  
  
         &UPDATERRD($rrd_filename,$L1m,$L15m); 
  
  
   } 
  
  
 
  
  
    #graph picture 
  
  
    &GRAPHPNG("$ip-loadaverage.rrd",86400);  
  
  
}