home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 February / PCWorld_2000-02_cd.bin / live / usr / X11R6 / bin / procmeter-xlog < prev    next >
Text File  |  1998-10-13  |  1KB  |  49 lines
  1. #!/usr/bin/perl
  2. #
  3. #  A perl script that analyses the log file to extract one statistic.
  4. #
  5. #  Written by Andrew M. Bishop
  6. #
  7. #  This file Copyright 1997 Andrew M. Bishop
  8. #  It may be distributed under the GNU Public License, version 2, or
  9. #  any higher version.  See section COPYING of the GNU Public license
  10. #  for conditions under which this file may be redistributed.
  11. #
  12.  
  13. die "Usage: procmeter-xlog statistic < logfile\n" if($#ARGV==-1);
  14.  
  15. $statistic=$ARGV[0];
  16. $position=-1;
  17.  
  18. $_=<STDIN>;
  19.  
  20. print $_;
  21. print "# Data for '$statistic'\n";
  22.  
  23. while(<STDIN>)
  24.   {
  25.    chop;
  26.    if(/^\#/)
  27.        {
  28.         ($hash,$time,@stats)=split(/ +/);
  29.  
  30.         $old_position=$position;
  31.         $position=-1;
  32.  
  33.         foreach $n (0 .. $#stats)
  34.             {
  35.              if($stats[$n] eq $statistic)
  36.                  {$position=$n;}
  37.             }
  38.  
  39.         if($position!=-1 && $old_position==-1)
  40.             {print "\n";}
  41.        }
  42.    elsif($position!=-1)
  43.        {
  44.         ($time,@stats)=split(/ +/);
  45.  
  46.         print "$time $stats[$position]\n";
  47.        }
  48.   }
  49.