bindings/perl-piped/leaktest.pl

   1 #!/bin/perl -w
   2 $ENV{PATH}="/usr/ucb";
   3 use strict;
   4 use RRDp;
   5 my $rrdfile='/tmp/test.rrd';
   6 RRDp::start '/home/oetiker/data/projects/AABN-rrdtool/src/rrdtool';
   7 print grep /rrdtool/,`ps au`;
   8 print grep /rrdtool/,`ps au`;
   9 my $i=0;
  10 while ($i<1000) {
  11  RRDp::cmd 'info /tmp/test.rrd';
  12  $_ = RRDp::read;
  13  $i++;
  14 }
  15 $_ = RRDp::end;
  16 print grep /rrdtool/,`ps au`;