skript v perlu

[Kocian Štefan]

Zdravim vsechny, potreboval bych poradit s timto:
nize je ukazkovy skript z rrdtools, proc mi nezapisuje hodnotu $t, do
database?
KdyĹž ale doplnim misto  
 RRDs::update $rrd,"$start:$t" 
 RRDs::update $rrd,"$start:nejake cislo"
tak to funguje.  pritom promena $t cislo obsahuje

Kam mam koukat dal. Perl mi moc nerika .....  DĂ­k za radu.


----------------
  use lib qw(
/rrdtool/perl-shared/blib/lib/rrdtool/perl-shared/blib/arch);
  use lib qw( /usr/local/rrdtool-1.0.46/lib/perl /rrdtool/lib/perl );
  use RRDs;
                                                                                                                             
  my $start=time;
  my $rrd=   "/var/www/html/rrdtool/test/pingtest.rrd";
  my $name = "/var/www/html/rrdtool/test/pingtest.png";
                                                                                                                             
  if (not -f $rrd){
                                                                                                                             
  RRDs::create ($rrd, "--start",$start-1,
"--step",300,"DS:pingtime:GAUGE:600:U:U","RRA:AVERAGE:0.500:1:200",);
  my $ERROR = RRDs::error;
  die "$0: unable to create `$rrd': $ERROR\n" if $ERROR;
  };
                                                                                                                             
  my $t;
                                                                                                                             
  $t=`ping -c3 213.151.91.116 | grep rtt | awk '{\$c=split(\$4,i,"/");
print i[1]}'`;
  $t=12;
  print "$start:".$t;
                                                                                                                             
  RRDs::update $rrd,"$start:$t";
                                                                                                                             
  RRDs::graph "$name","--alt-autoscale", "--title", "Demo ping
prehladu", "--start", "now-1d","--end",
"now","--imgformat","PNG","--width=600","--height=300","DEF:a=$rrd:pingtime:AVERAGE","LINE2:a#00b6e4:real","COMMENT:AktuĂĄlna hodnota odozvy=$t", ;
  if ($ERROR = RRDs::error) {
    print "ERROR: $ERROR\n";
  };