tools/reports/analyzeProfile.pl

   1 my $profileText;
   2 my %profileNames;
   3 my $profileTag;
   4
   5 while(<STDIN>)
   6 {
   7     if(! ($_ =~ /rofile/))
   8     {
   9         if($_ =~ /\s*(\w*)\s*(\w*)\%\s*(\w*)\s*(-)\s*(.*)/)
  10         {
  11             $profileTag .= "$5\n";
  12             $profileText .= $_;
  13             $entry = "$1,$2,$3,$5";
  14
  15             if(! exists($profileNames{$5}))
  16             {
  17                 $profileNames{$5} = $entry;
  18             }
  19             else
  20             {
  21                 @items = split(',', $profileNames{$5});
  22                 $totalTime = $items[0] + $1;
  23                 $callCount = $items[2] + $3;
  24                 $newEntry = "$totalTime, $items[1], $callCount, $5";
  25             }
  26         }
  27     }
  28 }
  29
  30 print "\"Description\", \"Total Time\", \"Call Count\", \"Call Cost\"\n";
  31 foreach my $key(keys(%profileNames))
  32 {
  33     @items = split(',', $profileNames{$key});
  34     $callCost = `echo \"$items[0] / $items[2]\" | bc -l`;
  35     chomp($callCost);
  36
  37     print "$key, $items[0], $items[2], $callCost\n";
  38 }