如何用akw处理排序并合并同一列，有sample

yestreenstars

@关阴月飞

1. awk '{if(!a[$1]++)b[++n]=$1;t=sqrt($2*$2);if(t>c[$1]){c[$1]=t;d[$1]=$2}}END{for(i=1;i<=n;i++)print b[i],d[b[i]]}'

复制代码

yestreenstars

回复 20# 关阴月飞
改了之后确实好多了，我还用了2个数组呢~

1. awk '{if(!a[$1]++)b[++n]=$1;if(sqrt($2*$2)>sqrt(c[$1]*c[$1]))c[$1]=$2}END{for(i=1;i<=n;i++)print b[i],c[b[i]]}'

复制代码

关阴月飞

回复 22# yestreenstars


    sqrt 可以去掉了，在这里显得多余了，楼上有人@Herowinter说过了

yestreenstars

回复 23# 关阴月飞
是啊，我刚看到~

   

clfsy

多谢楼上各位大神的帮助。。

已经测试。。
都可以运行。，。。

谢谢。。。

klainogn

1. awk '{a[$1]=a[$1]*a[$1]>$2*$2?a[$1]:$2}END{for(i in a)print i,a[i]}' file

复制代码

clfsy

2个数组的太麻烦了。。。
理解都困难。一个数组可以搞定

yestreenstars

提供一个perl:

1. perl -lane '$hash{$F[0]}=$F[1] if abs($F[1]) > abs($hash{$F[0]});END{print "$_\t$hash{$_}" foreach sort keys %hash}'

复制代码

这个冬天不冷

1. awk '{a[$1]=0-$2>a[$1]?0-$2:a[$1]}END{for(i in a)print i "\t-"a[i]}' 1
   

复制代码

trdcaz

1. $ awk '{abs=$2>0?$2:-$2;if(s[$1]>0){s[$1]=s[$1]<abs?$2:s[$1]}else{s[$1]=-s[$1]<abs?$2:s[$1]}}END{for(i in s)print i,s[i]}' file
   
2. ddd -12
   
3. aaa -3
   
4. bbb -6
   
5. ccc -10
   
6. $ cat file
   
7. aaa          -1
   
8. aaa          -2
   
9. aaa          -3
   
10. bbb          -2
    
11. bbb          -4
    
12. bbb           -6
    
13. ccc            -2
    
14. ccc            -3
    
15. ccc            -8
    
16. ccc            -10
    
17. ddd           -2
    
18. ddd           -4
    
19. ddd           -12

复制代码