X-Git-Url: https://git.octo.it/?a=blobdiff_plain;f=bindings%2Fperl-shared%2FRRDs.pm;h=3531a27d8acd725fbe5f743d30c219a2654a0998;hb=d4110e29da41ce702bcc3327e86768c6f266915e;hp=47199f21c1c0fca68c265842f31b30b558598d9c;hpb=54b2941bf83b09739e89da6c5dad5482cbe05ab8;p=rrdtool.git diff --git a/bindings/perl-shared/RRDs.pm b/bindings/perl-shared/RRDs.pm index 47199f2..3531a27 100644 --- a/bindings/perl-shared/RRDs.pm +++ b/bindings/perl-shared/RRDs.pm @@ -7,7 +7,7 @@ use vars qw(@ISA $VERSION); require DynaLoader; -$VERSION=1.199902; +$VERSION=1.3002; bootstrap RRDs $VERSION; @@ -26,10 +26,13 @@ RRDs - Access RRDtool as a shared module RRDs::info ... RRDs::create ... RRDs::update ... + RRDs::updatev ... RRDs::graph ... RRDs::fetch ... RRDs::tune ... RRDs::times(start, end) + RRDs::dump ... + RRDs::restore ... =head1 DESCRIPTION @@ -79,10 +82,10 @@ B returns a single INTEGER representing the last update time. $lastupdate = RRDs::last ... -B returns an pointer to an ARRAY containing the x-size and y-size of the -created image and results of the PRINT arguments. +B returns an ARRAY containing the x-size and y-size of the +created image and a pointer to an array with the results of the PRINT arguments. - ($averages,$xsize,$ysize) = RRDs::graph ... + ($result_arr,$xsize,$ysize) = RRDs::graph ... print "Imagesize: ${xsize}x${ysize}\n"; print "Averages: ", (join ", ", @$averages); @@ -95,6 +98,12 @@ the values of the properties. print "$key = $$hash{$key}\n"; } +B takes the same paramters as B but it returns a +pointer to hash. The hash returned contains meta information about the +graph. Like its size as well as the position of the graph area on the image. +When calling with and empty filename than the contents of the graph will be +returned in the hash as well (key 'image'). + B also returns a pointer to hash. The keys of the hash are concatenated strings of a timestamp, RRA index, and data source name for each consolidated data point (CDP) written to disk as a result of the @@ -110,10 +119,10 @@ integers, a pointer to an array and a pointer to a array of pointers. print "DS names: ", join (", ", @$names)."\n"; print "Data points: ", $#$data + 1, "\n"; print "Data:\n"; - foreach my $line (@$data) { + for my $line (@$data) { print " ", scalar localtime($start), " ($start) "; $start += $step; - foreach my $val (@$line) { + for my $val (@$line) { printf "%12.1f ", $val; } print "\n"; @@ -137,6 +146,6 @@ operating in the timezone of your choice. =head1 AUTHOR -Tobias Oetiker Eoetiker@ee.ethz.chE +Tobias Oetiker Etobi@oetiker.chE =cut