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?non"?if?$debug;?
  
  
?return?0;?
  
  
}else{?
  
  
?print?"$rrdname?createokn"?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?successn"?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%sn',?
  
  
"AREA:5min#EA8F00FF:5Min?Average",?
  
  
'GPRINT:5min:LAST:Current:%8.2lf%sn',?
  
  
"AREA:15min#FF0000FF:15Min?Average",?
  
  
);?
  
  
if?(my?$ERROR?=?RRDs::error)?{?
  
  
print?"ERROR:?$ERRORn"?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?->?$retvaln"?if?$debug;?
  
  
????return?($retval?=~?/(d+)/)???$retval?:?'U';?
  
  
}?
  
  
?
  
  
foreach?my?$ip(@hosts){?
  
  
?????#create?rrd?
  
  
?????my?$rrd_filename?=?"$rrd_path$ip-loadaverage.rrd";?
  
  
?????print?"$rrd_filenamen"?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);??
  
  
}?
 
 

?