summaryrefslogtreecommitdiffstats
path: root/lib/skin_parser/skin_buffer_debug.pl
blob: 6d0d1ba0e7f768328b10d2fb6fa48bea4bd8d26e (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
#!/usr/bin/perl
#             __________               __   ___.
#   Open      \______   \ ____   ____ |  | _\_ |__   _______  ___
#   Source     |       _//  _ \_/ ___\|  |/ /| __ \ /  _ \  \/  /
#   Jukebox    |    |   (  <_> )  \___|    < | \_\ (  <_> > <  <
#   Firmware   |____|_  /\____/ \___  >__|_ \|___  /\____/__/\_ \
#                     \/            \/     \/    \/            \/
# $Id$
#

%allocs = ();

while (<>) {
    if (/([0-9]*) (.*)$/) {
        $key = $2;
        $value = $1;
        if (exists $allocs{$key}) {
            $val = $allocs{$key}[0];
            $count = $allocs{$key}[1];
            $allocs{$key} = [$value + $val, $count+1]
        } else {
            $allocs{$key} = [$value, 1]
        }
    }
}
print "Count\tTotal cost\tLine\n";
for my $key ( keys %allocs ) {
            $val = $allocs{$key}[0];
            $count = $allocs{$key}[1];
        print "$count\t$val\t$key\n";
}