mrtg-alix/mrtg-scripts/explore_load

   1 #!/usr/bin/perl -w
   2
   3 $_ = <>;
   4 my ($l, $p) = ($_ =~ /^\s*[\d.]+\s+([\d.]+)\s+[\d.]+\s+\d+\/(\d+)/);
   5 $l = int($l*100);
   6
   7 my $h = `hostname`;
   8 chomp $h;
   9 print <<EOF;
  10 $l
  11 $p
  12
  13 $h
  14 EOF
  15
  16 1;
  17