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`;