18 lines
334 B
Perl
Executable File
18 lines
334 B
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
while(<>) {
|
|
# print $_;
|
|
@row = split(/\s+/, $_);
|
|
# print $row[0]."\n";
|
|
$nsec{$row[0]} += $row[1];
|
|
$count{$row[0]}++;
|
|
if ($bitmap{$row[0]} == "") {
|
|
push @names, ($row[0]);
|
|
}
|
|
$bitmap{$row[0]} = 1;
|
|
}
|
|
|
|
foreach $name (@names) {
|
|
print $name . ',' . $nsec{$name} / $count{$name} . "\n";
|
|
}
|