hogehoge

hoge.pl

use warnings;
use strict;

my $file = 'file.dat';
my $data = {};

open my $fh, '<', $file or die "Couldn't open file";
while ( my $line = <$fh> ) {
    $line =~ s/(\r\n|\n)$//;
    my ( $key, $val ) = $line =~ /^(.+)=(.+)$/;
    $data->{ $key } ||= { sum => 0, count => 0 };
    $data->{ $key }->{ sum } += $val;
    $data->{ $key }->{ count } ++;
}
close $fh;

print join( "\t", qw/ name sum count average / )."\n";
for my $key ( sort keys %$data ) {
    print join( "\t", $key, $data->{ $key }->{ sum }, $data->{ $key }->{ count }, $data->{ $key }->{ sum } / $data->{ $key }->{ count } )."\n";
}