awk列判断相加

linuxbody

1. AAA 4       131     6
   
2. BBB  7       2       0
   
3. AAA 5       111     5
   
4. BBB  7       3       0
   
5. AAA 4       110     6
   
6. AAA 5       17     1
   
7. 
   
8. 
   
9. 怎么得出
   
10. AAA 4 241 11
    
11. AAA 5 128 6
    
12. BBB 7 5 0
    
13. 
    
14. awk '{a[$1]+=$3"这边怎么加入判断第二列是否相同？"}END{for(xx in x)print ..}'

复制代码

cao627

直接  a[$1" "$2]

linuxbody

1. [root@localhost ~]# cat file
   
2. AAA 4       131     6
   
3. BBB  7       2       0
   
4. AAA 5       111     5
   
5. BBB  7       3       0
   
6. AAA 4       110     6
   
7. AAA 5       17     1
   
8. [root@localhost ~]# awk '{a[$1" "$2]+=$3}END{for(b in a)print b,a[b]}' file
   
9. AAA 4 241
   
10. AAA 5 128
    
11. BBB 7 5

复制代码

请问最后一列怎么相加？

moperyblue

1. awk '{k=$1 FS $2;for(i=2;i++<NF;)a[k,i]+=$i;b[k]}END{for(i in b){printf i FS;for(j=2;j++<NF;)printf a[i,j] (j<NF?FS:RS)}}' file

复制代码

sunzhiguolu

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my %hData = ();
   
6. while (<DATA>){
   
7.     my @aT = split;
   
8.     my $k = "@aT[0, 1]";
   
9.     $hData{$k}[0] += $aT[-2];
   
10.     $hData{$k}[1] += $aT[-1];
    
11. }
    
12. 
    
13. print "$_ @{$hData{$_}}\n" for keys %hData;
    
14. 
    
15. __DATA__
    
16. AAA 4       131     6
    
17. BBB  7       2       0
    
18. AAA 5       111     5
    
19. BBB  7       3       0
    
20. AAA 4       110     6
    
21. AAA 5       17     1

复制代码

cao627

回复 3# linuxbody

awk '{a[$1" "$2]+=$3;b[$1" "$2]+=$4}END{for(x in a)print x,a[x],b[x]}'  file

cao627

回复 3# linuxbody

awk '{a[$1" "$2]+=$3;b[$1" "$2]+=$4}END{for(x in a)print x,a[x],b[x]}'  file

jcdiy0601

1. awk '{a[$1" "$2]+=$3;b[$1" "$2]+=$4}END{for(i in a)print i,a[i],b[i]}' file

复制代码

fh21_xuejinlian

awk '{a[$1" "$2]+=$3;b[$1" "$2]+=$4}END{for(i in a)print i,a[i],b[i]}' file