bin/tcspace.pl

   1 #!/usr/bin/perl
   2
   3 # Process the TCSpace instrumentation in an hphp.log to produce
   4 # human-readable summaries. Usage:
   5 #    $ env TRACE=tcspace:1 ./hhvm/hhvm -v Eval.Jit=true \
   6 #           -f my-script.php
   7 #    $ tcspace.pl ./hphp.log
   8
   9 %cnts = {};
  10 %occs = {};
  11
  12 while(<>) {
  13   if (/^TCSpace/) {
  14     my ($unused, $category, $num) = split();
  15     $cnts{$category} += $num;
  16     $occs{$category} += 1;
  17   }
  18 }
  19
  20 foreach $value (sort {int($cnts{$b}) <=> int($cnts{$a}) }
  21                 keys %cnts) {
  22   printf("%24s %6dB / %6d\n", $value, $cnts{$value},
  23          $occs{$value});
  24 }
  25