3 # Open \______ \ ____ ____ | | _\_ |__ _______ ___
4 # Source | _// _ \_/ ___\| |/ /| __ \ / _ \ \/ /
5 # Jukebox | | ( <_> ) \___| < | \_\ ( <_> > < <
6 # Firmware |____|_ /\____/ \___ >__|_ \|___ /\____/__/\_ \
14 if (/([0-9]*) (.*)$/) {
17 if (exists $allocs{$key}) {
18 $val = $allocs{$key}[0];
19 $count = $allocs{$key}[1];
20 $allocs{$key} = [$value + $val, $count+1]
22 $allocs{$key} = [$value, 1]
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";