使用rrdtool画图

brain2007

使用rrdtool画图
November 27th, 2008 | Categories:
Boring
| Tags:
Oracle
,
rrdtool

Leave a comment
|
Trackback

rrdtool
很流行，画起图来确实很方便。只需要先
create
一个rrd数据库，再往里面update数据，就可以使用
graph
来画图，而且有多种options可选。
默认生成的图形也比用
Perl GD
画得好看。

不过RRDTOOL也很复杂，从它可以画出那么多不同种类的
图片
就可以知道。
简单的Perl::RRD代码
#!/usr/bin/perl -w
# This script fetches data from $rrd, creates a graph of memory
# consumption from oracle statspack history records
#
# call the RRD perl modsule
# use lib qw( /usr/local/rrdtool-1.0.41/lib/perl ../lib/perl );
#
# on windows you might need to set default font envioment variable
# $ENV{”RRD_DEFAULT_FONT”} = “C:\\WINDOWS\\FONTS\\TIMES.TTF”;
use RRDs;
my $rrd = “executecount.rrd”;
my ($starttime,$endtime,$minvalue,$maxvalue);
my $statfile = “exestats.txt”;
my $numline;
my ($timeslot,$value);
$starttime=0;
$endtime=0;
$numline=0;
$timeslot=0;
$value=0;
open(FILE,$statfile);
while()
{
chomp;
($timeslot,$value)=(split(/,/,$_));
if ($numline==0) {
$starttime=$timeslot;
}
#print “Time slot: ${timeslot} value: ${value} \n”;
$numline=$numline+1;
}
close(FILE);
$endtime=$timeslot;
# print “starttime at ${starttime} endtime at ${endtime} \n”;
my $rracount;
$rracount=$numline+10;
RRDs::create($rrd, “–start”, $starttime - 1, “–step”, 900,
“DS:index:GAUGE:900:U:U”,
“RRA:AVERAGE:0.5:1:${rracount}”
);
my $ERROR = RRDs::error;
print “ERROR unable to create ${rrd} : ${ERROR} \n” if $ERROR;
open(FILE,$statfile);
while()
{
chomp;
($timeslot,$value)=(split(/,/,$_));
RRDs::update ($rrd,”$timeslot:$value”);
$ERR=RRDs::error;
print “ERROR while updating $rrd: $ERR\n” if $ERR;
}
close(FILE);
my ($averages,$xsize,$ysize) = RRDs::graph “execute_count.png”,
“–title”, “Database free memory of large pool”,
“–font”,”DEFAULT:10:”,
“–start”, “$starttime”,
“–end”, “$endtime”,
“–imgformat”,”PNG”,
“–width=600″,
“–height=300″,
“–alt-autoscale”,
# “–x-grid”,”MINUTE:10:HOUR:1:HOUR:4:0:%X”,
# “–no-gridfit”,
“DEF:index=$rrd:index:AVERAGE”,
# “AREA:index#123456″,
“LINE1:index#ff0000:value of free large pool size (M)”,
# “–color=FRAME#CCFFFF”,
# “–color=CANVAS#CCFFFF”,
# “–color=SHADEB#9999CC”,
# “–color=BACK#CCCCCC”,
“–slope-mode”,
“–watermark”,”made by rrdtool”,
“–vertical-label”,”free large pool size (M)”,
“COMMENT: …..What a complex and powerful rrdtool …..”,
;
# print “Gifsize: ${xsize}x${ysize}\n”;
#print “Averages: “, (join “, “, @$averages);
数据输入文本类似这个,可以从perfstat中提取历史统计信息
1227076441,4094.24
1227077341,4070.92
1227078242,4059.70
1227079142,4039.84
1227080041,3936.42
1227080942,3885.93
1227081842,3869.71
1227082742,3829.21
1227083641,3762.83
1227084541,3759.83
1227085442,3693.83
1227086342,3623.54
1227087241,3528.87
……………………..
…………………….


本文来自ChinaUnix博客，如果查看原文请点：http://blog.chinaunix.net/u1/45976/showart_2013797.html