awk 统计

blackold

回复 6# davidbeckham921


    大小便失禁，牛!

davidbeckham921

yestreenstars 发表于 2013-01-06 19:47
我也来写一个吧运行结果如下：

真心牛掰啊，学习了！~~

这样好！

Shell_HAT

回复 6# davidbeckham921


    把代码放到code标签里面吧，否则论坛程序会弄丢一些字符。

davidbeckham921

回复 13# Shell_HAT


    呵呵好！知道了老大。

blackold

回复 6# davidbeckham921


    Sorry!

昨天没时间看。

后面可以这样简化:

1. {
   
2.     a[$1]++;
   
3.     b[$1,a[$1]-1]=$2;
   
4.     a[$1]>m?m=a[$1]:m=m
   
5. }
   
6. END{
   
7.     for(i in a)
   
8.         for (j in a)
   
9.             for(k=0;k<=m;k++)
   
10.                 if( i!=j && b[i,k]==b[j,k] && b[i,k]!="")
    
11.                     c[i" "j]++;
    
12.     for(i in c) print i,c[i];
    
13. }

复制代码

davidbeckham921

blackold 发表于 2013-01-07 13:51
回复 6# davidbeckham921

谢谢黑哥，明白了，昨天试了半天拼END没想到;就搞定了。

423497786

1. [root@localhost ~]# cat 1.txt
   
2. a        111
   
3. b        111
   
4. c        111
   
5. d        111
   
6. b        222
   
7. c        222
   
8. d        222
   
9. [root@localhost ~]# awk '{
   
10. >   a[$1,++b[$1]]=$2
    
11. > }
    
12. > END{
    
13. >   for (i in b)
    
14. >     for (j in b) {
    
15. >       c=0
    
16. >       if (i!=j) {
    
17. >         for (m=1;m<=b[i];m++)
    
18. >           for (k=1;k<=b[j];k++)
    
19. >             if (a[i,m]==a[j,k])
    
20. >               ++c
    
21. >         print i,j,c
    
22. >       }
    
23. >     }   
    
24. > }' 1.txt
    
25. a b 1
    
26. a c 1
    
27. a d 1
    
28. b a 1
    
29. b c 2
    
30. b d 2
    
31. c a 1
    
32. c b 2
    
33. c d 2
    
34. d a 1
    
35. d b 2
    
36. d c 2
    
37. [root@localhost ~]#

复制代码

elu_ligao

1. awk '{a[$2]=a[$2]?a[$2]FS$1:$1}END{for(i in a){l=split(a[i],b);for(j=1;j<=l;++j)for(k=j+1;k<=l;++k){s[b[k]" "b[j]]++;s[b[j]" "b[k]]++}}for(i in s)print i,s[i]}' file | sort

复制代码