考虑以下文件:
0,2,,,10
0,2,,,15
0,1,,,984
0,2,,,9
1,14,,,5
使用awk
,我需要计算$5
每个 的总价值$2
。
所需的输出如下所示:
2,34
1,984
14,5
答案1
答案2
答案3
我很想使用 perl:
#!/usr/bin/env perl
use strict;
use warnings;
my %things;
while (<>) {
my ( undef, $key, @rest ) = split(/,/);
$things{$key} += pop(@rest);
}
foreach my $key ( sort { $a <=> $b } keys %things ) {
print "$key = $things{$key}\n";
}
如果需要的话,你可以将其压缩为一行。