tools/makeMultiplyReport.pl

   1 # Script to take output from the Transform::multiply tracking REPORT_LOG output
   2 # and generate a report of callstacks sorted in descending frequency order.
   3
   4 use strict;
   5
   6 my $inCallstack        = 0;
   7 my $callstackFrequency = 0;
   8 my $callstackLinesRef;
   9 my $debug              = 0;
  10
  11 my %callstacksByFrequency;
  12
  13 sub submitCallstack
  14 {
  15     die "bad callstackFrequency [$callstackFrequency]" if (!($callstackFrequency =~ m/^\d+$/));
  16     return if (@$callstackLinesRef < 1);
  17
  18     # Make sure there's an array reference to hold all callstacks mapping to this frequency.
  19     if (!exists $callstacksByFrequency{$callstackFrequency})
  20     {
  21         $callstacksByFrequency{$callstackFrequency} = [];
  22     }
  23
  24     # Get array ref.
  25     my $callstackArrayRef = $callstacksByFrequency{$callstackFrequency};
  26
  27     # Add callstack lines array to it.
  28     push @$callstackArrayRef, $callstackLinesRef;
  29 }
  30
  31 sub resetCallstack
  32 {
  33     $callstackLinesRef = [];
  34 }
  35
  36 while (<>)
  37 {
  38     #-- Clean up line: remove line number and time info from log.
  39     chomp();
  40     s/\d+\s+\d+\.\d+\s+//;
  41
  42     #-- Process line.
  43
  44     # Check if this matches a start of callstack line.
  45     if (m/Transform::multiply/)
  46     {
  47         if ($inCallstack)
  48         {
  49             # Add existing (now complete) callstack, restart a new one immediately following, starting on this line.
  50             submitCallstack();
  51         }
  52         else
  53         {
  54             # Mark that we're now in a callstack so we know to scan following lines.
  55             $inCallstack = 1;
  56         }
  57         resetCallstack();
  58
  59         # Parse out frequency.
  60         if (m/called (\d+) times/)
  61         {
  62             $callstackFrequency = $1;
  63         }
  64         else
  65         {
  66             die "Failed to get call frequency on input line [$_]";
  67         }
  68
  69         # Remove unique callstack numeric info at end since we sort differently (by frequency) than raw output.
  70         s/\s\(\d+ of \d+ unique callstacks\)//;
  71
  72         # Add header line to callstack lines.
  73         push @$callstackLinesRef, $_;
  74
  75         print "Found callstack frequency [$callstackFrequency]\n" if $debug;
  76     }
  77     elsif ($inCallstack)
  78     {
  79         # Fixiup lines I bumbled output on.
  80         s/(\d+) caller \d+/caller $1/;
  81
  82         if (m/caller \d+/)
  83         {
  84             if (!m/unknown/)
  85             {
  86                 # Looks like a good callstack line, keep it.
  87                 push @$callstackLinesRef, $_;
  88             }
  89         }
  90         else
  91         {
  92             # Looks like this callstack is done.
  93             submitCallstack();
  94             $inCallstack = 0;
  95         }
  96     }
  97 }
  98
  99 # Print out callstacks sorted by descending numeric frequency.
 100 my @frequencies = sort { return $b <=> $a; } (keys %callstacksByFrequency);
 101
 102 print "There are ", @frequencies + 0, " unique callstack frequencies.\n";
 103 foreach my $frequency (@frequencies)
 104 {
 105     my $callstackArrayRef = $callstacksByFrequency{$frequency};
 106     my $callstackCount    = @$callstackArrayRef;
 107
 108     print "========================================\n";
 109     print "FREQUENCY: $frequency ($callstackCount callstacks)\n";
 110     print "========================================\n";
 111     print "\n";
 112     for (my $i = 0; $i < $callstackCount; ++$i)
 113     {
 114         my $callstackLinesRef = $$callstackArrayRef[$i];
 115         my $lineCount         = @$callstackLinesRef;
 116
 117         print "$$callstackLinesRef[0]\n";
 118         for (my $lineIndex = 1; $lineIndex < $lineCount; ++$lineIndex)
 119         {
 120             print "\t$$callstackLinesRef[$lineIndex]\n";
 121         }
 122         print "\n";
 123     }
 124 }
 125
 126 print "DONE.\n";
 127