大家都出来吧，菜鸟来问问题了

村口小卖部老王

12  a  4  5  6  7  
13  a  8  5  7  9
14  a  4  2  9  6
15  b  7  9  5  6
16  b  2  3  4  6
17  c  1  2  6  6
第2列有相同的元素，如果第二列元素相同，就把后面每一列分别求平均数，就是得到这样的结果，
a    (4+8+4)/3    (5+5+2)/3     (6+7+9)/3    (7+9+6)/3
b    (7+2)/2        (9+3)/2         (5+4)/2        (6+6)/2
c     1                 2                   6                 6


麻烦大家了，十分感谢！！！



这是perl的问题，


#!/usr/bin/perl
use strict;
use warnings;

my %hash;
open my $fh, "<", "data" or die $!;
while (<$fh>) {
        chomp;
        my (undef,$c2,@col)=split /\s+/;
        push @{$hash{$c2}},@col;
}
close $fh;

for my $hkey (sort keys %hash) {
        my ($i,@sum,@num)=(0);
        for my $akey (@{$hash{$hkey}}) {
                $i%=4;
                $sum[$i]+=$akey;
                $num[$i]+=1;
                $i++;
        }
        print "$hkey ".int($sum[0]/$num[0])." ".int($sum[1]/$num[1])." ".int($sum[2]/$num[2])." ".int($sum[3]/$num[3])."\n";
}


这是perl版有人给出的答案，求解释红色这段，


另请高手用awk 写下

cliffordl

回复 1# 村口小卖部老王


    顶一下

yestreenstars

1. awk '{for(i=3;i<=NF;i++){a[$2,i]+=$i}b[$2]++}END{for(i in b){printf "%-2s",i;for(j=3;j<=NF;j++)printf "%-5.2f",a[i,j]/b[i];print ""}}'

复制代码

1. [root@localhost ~]# cat i
   
2. 12  a  4  5  6  7
   
3. 13  a  8  5  7  9
   
4. 14  a  4  2  9  6
   
5. 15  b  7  9  5  6
   
6. 16  b  2  3  4  6
   
7. 17  c  1  2  6  6
   
8. [root@localhost ~]# awk '{for(i=3;i<=NF;i++){a[$2,i]+=$i}b[$2]++}END{for(i in b){printf "%-2s",i;for(j=3;j<=NF;j++)printf "%-5.2f",a[i,j]/b[i];print ""}}' i
   
9. a 5.33 4.00 7.33 7.33
   
10. b 4.50 6.00 4.50 6.00
    
11. c 1.00 2.00 6.00 6.00
    
12. [root@localhost ~]#

复制代码

zzbutcher

回复 3# yestreenstars

这个AWK也太长了吧


   

blackold

回复 3# yestreenstars


    这不是LZ的要求吧？

yestreenstars

回复 5# blackold


    多谢黑哥提醒，他贴的结果让我误会了，已更正~ ~

yestreenstars

回复 4# zzbutcher


    现在呢？