awk 处理

ljwd1000

如果仅仅是数字，这个应该也行

1. awk '{b[$0]=$0;a[NR]=$0}END{for(i in b)for(j=1;j<=NR;j++)if(a[j]~b[i])s[i]++;for(i=1;i<=NR;i++)print a[i],s[a[i]]}'

复制代码

reyleon

1. awk '{a[NR]=$1}END{for(i=1;i<=NR;i++){for(j=1;j<=NR;j++)if(index(a[j],a[i]))++n;print a[i],n;n=0}}' file

复制代码

reyleon

1. [root@centos6-1 ~]# cat file
   
2. 1
   
3. 2
   
4. 3
   
5. 12
   
6. 123
   
7. !@#$%^&
   
8. !@#$%^&789
   
9. 21312!@#$%^&789
   
10. [root@centos6-1 ~]#
    
11. [root@centos6-1 ~]# awk '{a[NR]=$1}END{for(i=1;i<=NR;i++){for(j=1;j<=NR;j++)if(index(a[j],a[i]))++n;print a[i],n;n=0}}' file | column -t
    
12. 1                4
    
13. 2                4
    
14. 3                3
    
15. 12               3
    
16. 123              1
    
17. !@#$%^&          3
    
18. !@#$%^&789       2
    
19. 21312!@#$%^&789  1
    
20. [root@centos6-1 ~]#
    
21. 
    
22. 
    
23. 
    
24. 
    

复制代码