Linux shell 脚本中表格的单元格求和

Question

我有一组采用以下格式的表格：

1000 3 0 15 14
2000 3 0 7 13
3000 2 3 14 12
4000 3 1 11 14
5000 1 1 9 14
6000 3 1 13 11
7000 3 0 10 15

它们位于简单的文本文件中。

我想将这些文件合并到相同格式的新表中，其中每个单元格 (X,Y) 是原始表集中所有单元格 (X,Y) 的总和。一个稍微复杂的因素是第一列中的数字不应该被求和，因为这些是标签。

我怀疑这可以用 AWK 来完成，但我不是特别熟悉这种语言，并且在网上找不到解决方案。如果有人建议使用其他工具，那也没关系。

我想从 bash shell 脚本执行此操作。

Answer 1

尝试一下：

#!/usr/bin/awk -f
{
    for (i=2;i<=NF; i++)
        a[$1,i]+=$i
    b[$1]=$1
    if (NF>maxNF) maxNF=NF
}

END {
    n=asort(b,c)
    for (i=1; i<=n; i++) {
        printf "%s ", b[c[i]]
        for (j=2;j<=maxNF;j++) {
            printf "%d ", a[c[i],j]
        }
        print ""
    }
}

像这样运行它：

./sumcell.awk table1 table2 table3

或

./sumcell.awk table*

两次使用示例输入的输出将如下所示：

$ ./sumcell.awk table1 table1
1000 6 0 30 28
2000 6 0 14 26
3000 4 6 28 24
4000 6 2 22 28
5000 2 2 18 28
6000 6 2 26 22
7000 6 0 20 30

Answer 2

对每一行求和，假定每行至少有一个数字列。

while read line ; do
    label=($line)
    printf ${label[0]}' ' ;
    expr $(
        printf "${label[1]}"
        for c in "${label[@]:2}" ; do
            printf ' + '$c
        done 
    )
done < table

编辑：当然，我没有看到关于基于标签进行组合的评论，所以这是不完整的。

Answer 3

perl -anE'$h{$F[0]}[$_]+=$F[$_]for 1..4}{say$_,"@{$h{$_}}"for sort{$a<=>$b}keys%h' file_1 file_2