client/meter/loadavg

   1 #!/usr/bin/env perl
   2
   3 require "common.pl";
   4
   5 my ($loadavg_1m, $loadavg_5m, $loadavg_15m, undef) = split /\s+/, file_get_line("/proc/loadavg");
   6 $\ = "\n";
   7 print "1m       $loadavg_1m";
   8 print "5m       $loadavg_5m";
   9 print "15m      $loadavg_15m";