From 1a6a5037fc0a036678974a69bc421a89626f9824 Mon Sep 17 00:00:00 2001 From: oetiker Date: Sat, 16 Aug 2008 07:11:46 +0000 Subject: [PATCH] documentation updates git-svn-id: svn://svn.oetiker.ch/rrdtool/trunk/program@1460 a5681a0c-68f1-0310-ab6d-d61299d08faa --- bindings/perl-shared/RRDs.pm | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/bindings/perl-shared/RRDs.pm b/bindings/perl-shared/RRDs.pm index df115c1..fbd9c96 100644 --- a/bindings/perl-shared/RRDs.pm +++ b/bindings/perl-shared/RRDs.pm @@ -82,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); @@ -119,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"; -- 2.11.0