我正在尝试在 UNIX 中聚合一个包含以下数据的文件。如果密钥相同,我需要添加金额。
Key,amount,date,Time
abc-xyz-12234,45,15-08-91,23:00
pqr-vgh-5241,15,15-08-91,21:00
abc-xyz-12234,35,15-08-91,23:00
pqr-vgh-5241,24,15-08-91,21:00
abc-xyz-12234,655,15-08-91,23:00
lkj-erf-8542,281,15-08-91,10:00
pqr-vgh-5241,40,15-08-91,21:00
输出应如下所示
abc-xyz-12234,735,15-08-91,23:00
pqr-vgh-5241,79,15-08-91,21:00
lkj-erf-8542,281,15-08-91,10:00
我尝试了以下命令,但它只给了我 uniq
cat file | grep "abc-xyz-12234" | uniq
答案1
另一种可能的解决方案awk
可能是:
awk 'BEGIN { FS = OFS = "," }
NR != 1 { y[$1] += $2; $2 = y[$1]; x[$1] = $0; }
END { for (i in x) { print x[i]; } }' file
缺点是它不会保留您的订单。所以结果可能是:
pqr-vgh-5241,79,15-08-91,21:00
abc-xyz-12234,735,15-08-91,23:00
lkj-erf-8542,281,15-08-91,10:00
答案2
你可以用 awk 来做到这一点:
#!/bin/sh
sort | awk -F, '
function result() {
if ( key != "" ) {
printf "%s,%d,%s\n", key, value, datetime;
}
}
BEGIN { key = ""; value = 0; datetime = ""; }
$2 ~ /^[0-9]+/ {
if ( $1 == key ) {
value += $2;
} else {
result();
key = $1;
value = $2;
datetime = $3 "," $4;
}
}
END { result(); }
'
给予
./foo <input
abc-xyz-12234,735,15-08-91,23:00
lkj-erf-8542,281,15-08-91,10:00
pqr-vgh-5241,79,15-08-91,21:00
答案3
这是 Perl 中的一种方法。这样称呼它./script file.ext
:
use warnings;
use strict;
my %data;
my @order;
while (<>){
next if $. == 1;
my @line = split /,/;
if (defined $data{$line[0]}){
$data{$line[0]}->[1] += $line[1];
}
else {
$data{$line[0]} = \@line;
push @order, $line[0];
}
}
for (@order){
print join(',', @{$data{$_}});
}
答案4
这使用 Miller ( ) 来计算按、和字段分组的每组记录mlr
的字段总和。 Miller 会将总和作为新字段 添加到字段列表的末尾,因此我们还对字段重新排序并重新标记它们。amount
Key
date
Time
amount_sum
mlr --csv \
stats1 -a sum -f amount -g Key,date,Time then \
reorder -f Key,amount_sum then \
label Key,amount file
给出问题中数据的输出:
Key,amount,date,Time
abc-xyz-12234,735,15-08-91,23:00
pqr-vgh-5241,79,15-08-91,21:00
lkj-erf-8542,281,15-08-91,10:00
如果您不想在输出中包含标头,请mlr
与它的--headerless-csv-output
选项一起使用。