tools/footprint/codemap.pl

   1 while (<>) {
   2     chomp;
   3     if (/^mozilla.exe/) {
   4         $start = 1;
   5     }
   6     if ($start) {
   7         chomp;
   8         @fields = split(/  */);
   9         $bytes = $fields[2];
  10         $bytes =~ s/,//g;
  11         $codesize += $bytes;
  12     }
  13 }
  14 printf "%8.2f K codesize\n", toK($codesize);
  15
  16 sub toK()
  17 {
  18     return $_[0] / 1024;
  19 }