You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
|
#!/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";
|
|
}
|
