lib/skin_parser/skin_buffer_debug.pl

   1 #!/usr/bin/perl
   2 #             __________               __   ___.
   3 #   Open      \______   \ ____   ____ |  | _\_ |__   _______  ___
   4 #   Source     |       _//  _ \_/ ___\|  |/ /| __ \ /  _ \  \/  /
   5 #   Jukebox    |    |   (  <_> )  \___|    < | \_\ (  <_> > <  <
   6 #   Firmware   |____|_  /\____/ \___  >__|_ \|___  /\____/__/\_ \
   7 #                     \/            \/     \/    \/            \/
   8 # $Id$
   9 #
  10
  11 %allocs = ();
  12
  13 while (<>) {
  14     if (/([0-9]*) (.*)$/) {
  15         $key = $2;
  16         $value = $1;
  17         if (exists $allocs{$key}) {
  18             $val = $allocs{$key}[0];
  19             $count = $allocs{$key}[1];
  20             $allocs{$key} = [$value + $val, $count+1]
  21         } else {
  22             $allocs{$key} = [$value, 1]
  23         }
  24     }
  25 }
  26 print "Count\tTotal cost\tLine\n";
  27 for my $key ( keys %allocs ) {
  28             $val = $allocs{$key}[0];
  29             $count = $allocs{$key}[1];
  30         print "$count\t$val\t$key\n";
  31 }