perl snmp rrdtool 画图

mgjj

　　在上一篇文章中，有兄弟问我要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",
  
• 'GPRINT:5min:LAST:Current\:%8.2lf%s\n',
  
• );
  
• 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,$L5m,$L15m);
  
•    }
  
• 
  
•     #graph picture
  
•     &GRAPHPNG("$ip-loadaverage.rrd",86400);
  
• }