1*9c5db199SXin Li#!/usr/bin/perl 2*9c5db199SXin Li 3*9c5db199SXin Li$iterations = shift(@ARGV); 4*9c5db199SXin Lifor ($i = 1 ; $i <= $iterations ; ++$i) { 5*9c5db199SXin Li open (FILE, "profile.$i") || die; 6*9c5db199SXin Li while (<FILE>) { 7*9c5db199SXin Li /\s*(\d*)\s*(\S*)/; 8*9c5db199SXin Li $map{$2} += $1; 9*9c5db199SXin Li } 10*9c5db199SXin Li} 11*9c5db199SXin Li 12*9c5db199SXin Liforeach $key (keys %map) { 13*9c5db199SXin Li $value = int $map{$key}/5; 14*9c5db199SXin Li print "$value $key\n"; 15*9c5db199SXin Li} 16