perl急求代码
文件如下
a 1 3 4
b 2 20 3.0
c 5 6.0 3
b 3.0 2 1
c 6 2 1
用哈希实现出来成
a 1 3 4
b 5.0 22 4.0
c 11 8.0 4
求perl代码 perl
[解决办法]
%h;
while (<DATA>) {
($k, $x, $y, $z) = split;
if (exists $h{$k}) {
$v = $h{$k};
$v->[0] += $x;
$v->[1] += $y;
$v->[2] += $z;
}
else {
@h{$k} = [$x, $y, $z];
}
}
for $k (sort keys %h) {
print $k, "\t", join("\t", @{$h{$k}}), "\n";
}
__DATA__
a 1 3 4
b 2 20 3.0
c 5 6.0 3
b 3.0 2 1
c 6 2 1