| #!/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"; | |
| } |