tutorial/ouce2013/rrd-by-example/ex/v-interfaces.pl

   1 #!/usr/bin/perl -w
   2 use strict;
   3 use lib qw( /scratch/rrd4/lib/perl );
   4 use RRDs;
   5 my $out = RRDs::graphv(
   6      '-', '--start' => '00:00 20080916',
   7      '--end' => 'start+8d',
   8      '--lower-limit' => 0,
   9      '--imgformat' => 'PDF',
  10      'DEF:a=hw-demo.rrd:in:AVERAGE',
  11      'LINE1:a#c00:InOctets');
  12 my $ERROR = RRDs::error;
  13 die "ERROR: $ERROR\n" if $ERROR;
  14 map {
  15     print $_.' = '.substr($out->{$_},0,8)."\n"
  16 } sort keys %$out;