blob: daeefc35378974d97d6d403b8d486b73b5560527 [file] [log] [blame]
#!/usr/bin/perl
$iterations = shift(@ARGV);
for ($i = 1 ; $i <= $iterations ; ++$i) {
open (FILE, "profile.$i") || die;
while (<FILE>) {
/\s*(\d*)\s*(\S*)/;
$map{$2} += $1;
}
}
foreach $key (keys %map) {
$value = int $map{$key}/5;
print "$value $key\n";
}