Hi all,
I am completely new to Perl, so excuse me if my question is stupid
(which probably is actually).
I am using RRD modules and keep having a problem with the fetch function
#!/opt/perl56/bin/perl
use lib qw (/opt/mrtg/lib/perl ../lib/perl);
use Time::Local;
use RRDs;
my ($start,$step,$names,$data) = RRDs::fetch ARGV[0];
my $ERROR = RRDs::error;
die "$0 : $ERROR\n" if $ERROR;
print "Start: ", scalar localtime($start), " ($start)\n";
print "Step size: $step seconds\n";
print "DS names: ", join (", ", @$names)."\n";
print "Data points: ", $#$data + 1, "\n";
print "Data:\n";
foreach my $line (@$data) {
print " ", scalar localtime($start), " ($start) ";
$start += $step;
foreach my $val (@$line) {
printf "%12.1f ", $val;
}
print "\n";
}
All is taken from the perldoc help files.
I get a : unknown consolidation function 'ARRAY(0xeb960)'
Any help here ? Or any info on how to use these modules. The perldoc
help is very limited.
Thanks
Richard
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
