tools/installTimer.pl

   1 #! /usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 my $minimumTime = 0.0;
   7
   8 if (@ARGV >= 2 && $ARGV[0] eq "-m")
   9 {
  10         shift;
  11         $minimumTime = shift;
  12 }
  13
  14 die "usage: $0 [-m time] logfile\n\t-m = minimum time (in seconds) to report\n" if (@ARGV != 1 || $ARGV[0] =~ /^[-\?\/]/);
  15
  16 my @reverse;
  17 while (<>)
  18 {
  19         next if (s/InstallTimer:  // == 0);
  20         push(@reverse, $_);
  21 }
  22
  23 while (@reverse)
  24 {
  25         $_ = pop(@reverse);
  26         my $line = $_;
  27         chomp;
  28         s/^\s+//;
  29         my ($time, $whom) = split(/\s+/, $_);
  30         print $line if ($time >= $minimumTime);
  31 }