Leser: 4
8 Einträge, 1 Seite |
Crian+2008-05-16 10:46:12--Ist zwar mit Kanonen auf Spatzen geschossen, aber vielleicht wäre ein Blick auf meinen Grafeneditor interessant.
-> http://www.duehl.de/christian/perl/ged.html
1
2
3
4
5
6
[...]
1207717200,0,0,0,0
1207720800,0,0,49,5.40938775510204
1207724400,0,015,383.150266666667
1207728000,0,0,0,0
[...]
1
2
3
4
5
6
7
if(! -f $RRD)
{RRDs::create(
$RRD,
"DS:load:GAUGE:60:0:500",
"RRA:$dst:0.5:60:500",
) or die "Cannot create rrd ($RRDs::error)";
}else{print "RRD exisitiert schon!\n";}
1
2
3
4
5
6
7
foreach (<FILE>){
chomp $_;
(my @spalten) = split (/\,/,$_);
RRDs::update($RRD, "$spalten[0]:$spalten[3]") or die "Cannot update rrd ($!)";
}
1
2
3
4
5
6
7
8
RRDs::graph("/usr/lib/cgi-bin/bild.png",
"--vertical-label=TEST",
"--start= 1207713200",
"--end= 1207722200",
"DEF:myload=$RRD:load:MAX",
"LINE1:myload#FF0000")
or die "graph failed ($RRDs::error)";
8 Einträge, 1 Seite |