请教:perl脚本中RRDtool绘图问题

hrp313

下面这段代码是用perl来调rrdtool绘图,但是没有看到图片,应该是代码就错,初步发现是下面红色标记一段代码的问题,哪位仁兄对rrdtool熟的高手指教一下啊,困扰很久了....
运行的结果是:problem generating the graph: 'SCALAR' is not a valid function name
Average memory consumption is  0.00 MB. Graphical representation can be found at mem_288.png.


#!/usr/bin/perl
# This script fetches data from target.rrd, creates a graph of memory
# consumption on the target (Dual P3 Processor 1 GHz, 656 MB RAM)
# call the RRD perl module
#/usr/local/rrdtool-1.2.23/lib/perl
use lib qw( /usr/local/rrdtool-1.2.23/lib/perl ../lib/perl );
use RRDs;
my $cur_time = time();                # set current time
#my $end_time = $cur_time - 86400;     # set end time to 24 hours ago
#my $start_time = $end_time - 2592000; # set start 30 days in the past
my $end_time = $cur_time;     # set end time to current time
my $start_time = $end_time - 86400; # set start 1 days in the past
# fetch average values from the RRD database between start and end time
my ($start,$step,$ds_names,$data) = RRDs::fetch("../target.rrd", "AVERAGE",
                "-r", "600", "-s", "$start_time", "-e", "$end_time");
# save fetched values in a 2-dimensional array
my $rows = 0;
my $columns = 0;
my $time_variable = $start;
foreach $line (@$data) {
  $vals[$rows][$columns] = $time_variable;
  $time_variable = $time_variable + $step;
  foreach $val (@$line) {
          $vals[$rows][++$columns] = $val;}
  $rows++;
  $columns = 0;
}
my $tot_time = 0;
my $count = 0;
# save the values from the 2-dimensional into a 1-dimensional array
#for $i ( 0 .. $#vals ) {
for $i ( 0 .. $#vals-1 ) {
    $tot_mem[$count] = $vals[$i][1];
    $count++;
}
#print "count=$count\n";
my $tot_mem_sum = 0;
# calculate the total of all values
#for $i ( 0 .. ($count-1) ) {
for $i ( 0 .. $count ) {
    $tot_mem_sum = $tot_mem_sum + $tot_mem[$i];
}
# calculate the average of the array
my $tot_mem_ave = $tot_mem_sum/($count);
# create the graph
RRDs::graph ("mem_$count.png",   \
            "--title=Memory Usage",    \
            "--vertical-label=Memory Consumption (MB)", \
            "--start=$start_time",      \
            "--end=$end_time",          \
            "--color=BACK#CCCCCC",      \
            "--color=CANVAS#CCFFFF",    \
            "--color=SHADEB#9999CC",    \
            "--height=125",             \
            "--upper-limit=656",        \
            "--lower-limit=0",          \
            "--rigid",                  \
            "--base=1024",              \
            "DEF:mem=../target.rrd:mem:AVERAGE", \
            "CDEF:tot_mem_cor=tot_mem,0,671744,LIMIT,UN,0,tot_mem,IF,1024,/",\
            "CDEF:machine_mem=tot_mem,656,+,tot_mem,-",\
            "COMMENT:Memory Consumption between $start_time",\
            "COMMENT:    and $end_time                     ",\
            "HRULE:656#000000:Maximum Available Memory - 656 MB",\
            "AREA:machine_mem#CCFFFF:Memory Unused",   \
            "AREA:tot_mem_cor#6699CC:Total memory consumed in MB");
my $err=RRDs::error;
if ($err) {print "problem generating the graph: $err\n";}
# print the output
print "Average memory consumption is ";
printf "%5.2f",$tot_mem_ave/1024;
print " MB. Graphical representation can be found at mem_$count.png.\n";