X-Git-Url: https://git.octo.it/?a=blobdiff_plain;f=bindings%2Fperl-shared%2FRRDs.pm;h=3531a27d8acd725fbe5f743d30c219a2654a0998;hb=d4110e29da41ce702bcc3327e86768c6f266915e;hp=5fd1ced618086ac76a5b0d26f7390c442f1c5b12;hpb=361a0fd38d7adf95847508f54c0bde9b3f98662e;p=rrdtool.git diff --git a/bindings/perl-shared/RRDs.pm b/bindings/perl-shared/RRDs.pm index 5fd1ced..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.2008; +$VERSION=1.3002; bootstrap RRDs $VERSION; @@ -31,6 +31,8 @@ RRDs - Access RRDtool as a shared module RRDs::fetch ... RRDs::tune ... RRDs::times(start, end) + RRDs::dump ... + RRDs::restore ... =head1 DESCRIPTION @@ -80,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); @@ -96,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 @@ -111,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"; @@ -138,6 +146,6 @@ operating in the timezone of your choice. =head1 AUTHOR -Tobias Oetiker Eoetiker@ee.ethz.chE +Tobias Oetiker Etobi@oetiker.chE =cut