tools/formatFilteredExceptionReport.pl

   1 my @exceptions;
   2 my $currentException = 0;
   3 my $nearestWarning = "";
   4 while(<STDIN>)
   5 {
   6     if($_ =~ /^* : WARNING |^WARNING: /)
   7     {
   8         $nearestWarning = $_;
   9     }
  10     if ($_ =~ /^java/)
  11     {
  12         $currentException++;
  13         $exceptions[$currentException] = $nearestWarning.$_;
  14     }
  15     elsif($_ =~ /\s+at /)
  16     {
  17         $exceptions[$currentException] .= $_;
  18     }
  19 }
  20
  21 my @reportOutput;
  22 my $reportIndex = 0;
  23 my %dupeReport;
  24 for ($i = 0; $i < @exceptions; $i++)
  25 {
  26     $duped = 0;
  27     for($j = 0; $j < @reportOutput; $j++)
  28     {
  29         if($exceptions[$i] eq $reportOutput[$j])
  30         {
  31             $duped = 1;
  32             break;
  33         }
  34     }
  35
  36     $reports = 1;
  37     for($j = 0; $j < @exceptions; $j++)
  38     {
  39         if($i != $j)
  40         {
  41             if($exceptions[$i] eq $exceptions[$j])
  42             {
  43                 $reports++;
  44             }
  45         }
  46     }
  47
  48     if($duped == 0)
  49     {
  50         $callStack = $exceptions[$i];
  51         $reportOutput[$reportIndex] = $exceptions[$i];
  52         $reportIndex++;
  53         $dupeReport{$callStack} = $reports;
  54     }
  55 }
  56
  57
  58 print "Java Exception Report: $reportIndex unique call stacks logged. Total call stacks: $currentException\n";
  59 print "Detailed report follows.\n\n\n\n";
  60
  61 foreach my $key (sort{$dupeReport{$b} <=> $dupeReport{$a}} keys %dupeReport)
  62 {
  63     print "\n=============================================\n\n";
  64     print "$dupeReport{$key} reports:\n";
  65     print $key;
  66
  67 }
  68