From 2a148ad1f670b57e7b57512cd4c8e6d6c5ecd99c 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@1460 a5681a0c-68f1-0310-ab6d-d61299d08faa --- program/bindings/perl-shared/RRDs.pm | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/program/bindings/perl-shared/RRDs.pm b/program/bindings/perl-shared/RRDs.pm index df115c1c..fbd9c96b 100644 --- a/program/bindings/perl-shared/RRDs.pm +++ b/program/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.30.2