练习题（排序合并）

yestreenstars

回复 19# yinyuemi

看起来好复杂，学习了match截取字符串的方法和4.0多维数组的处理~{:3_203:}
   

elu_ligao

1. [redhat@localhost 0108]$ cat lj.awk
   
2. #!/bin/awk
   
3. 
   
4. {
   
5.         if(!a[$1,$2]++)
   
6.                 b[$1]=b[$1]?b[$1]" "$2:$2
   
7.         c[$1,$2]=c[$1,$2]?c[$1,$2]" "$3:$3
   
8. }
   
9. END{
   
10.         for(i in b){
    
11.                 l=split(b[i],sb)
    
12.                 printf i": ";
    
13.                 for(j=1;j<=l;++j){
    
14.                         li=split(c[i,sb[j]],sc)
    
15.                         min=sc[1]
    
16.                         for(k=1;k<li;++k){
    
17.                                 if(sc[k]+1!=sc[k+1]){
    
18.                                         printf sc[k]==min?sb[j]min",":sb[j]min"-"sc[k]","
    
19.                                         min=sc[k+1]
    
20.                                 }
    
21.                         }
    
22.                         printf sc[k]==min?sb[j]min:sb[j]min"-"sc[k]
    
23.                         if(j<l) printf ","
    
24.                 }
    
25.                 print ""
    
26.         }
    
27. 
    
28. }
    
29. [redhat@localhost 0108]$ awk '{$2=gensub(/([^0-9]+)([0-9]+)/,"\\1\t\\2",1,$2)}1' lianjie_jq | sort -k1,2 -k3n | awk -f lj.awk
    
30. apple: cat12,cat106-109,cat123,cat125
    
31. pear: dog11,dog101,dog103-105,mouse106-109,mouse123,mouse125

复制代码

yestreenstars

回复 19# yinyuemi

学以致用，我也来个4.0版的awk：

1. $ awk '{match($2,/([^0-9]+)(.*)/,a);b[$1][a[1]][a[2]]=a[2]}END{for(i in b){printf i":\t";for(j=0;j++<asorti(b[i],c);){for(k=0;k++<asort(b[i][c[j]],d);)t=t?d[k]-d[k-1]==1?t"-"c[j]d[k]:t","c[j]d[k]:c[j]d[k];s=s?s","t:t;t=""}gsub(/-[^,]+-[^0-9]+/,"-",s);print s;s=""}}' i
   
2. apple:  cat12,cat106-109,cat123,cat125
   
3. pear:   dog11,dog101,dog103-105,mouse106-109,mouse123,mouse125

复制代码

多行脚本有助于理解：

1. #!/bin/awk -f
   
2. {
   
3.         match($2,/([^0-9]+)(.*)/,a)
   
4.         b[$1][a[1]][a[2]]=a[2]
   
5. }
   
6. END{
   
7.         for(i in b){
   
8.                 printf i":\t"
   
9.                 for(j=0;j++<asorti(b[i],c);){
   
10.                         for(k=0;k++<asort(b[i][c[j]],d);){
    
11.                                 t=t?d[k]-d[k-1]==1?t"-"c[j]d[k]:t","c[j]d[k]:c[j]d[k]
    
12.                         }
    
13.                         s=s?s","t:t
    
14.                         t=""
    
15.                 }
    
16.                 gsub(/-[^,]+-[^0-9]+/,"-",s)
    
17.                 print s
    
18.                 s=""
    
19.         }
    
20. }

复制代码

vic260844

学习学习学习学习学习学习学习学习

reb00t

必须顶顶～～～

张不凡

回复看答案~~！

戒爱丿小坏蛋

新手学习路过！！！！！！！！

pitonas

新手学习,

我回复下能看到答案么?  {:2_172:}

lklkxcxc

顶顶顶顶顶顶顶顶顶顶顶顶顶

runintostar

昨天问题看了有点疑惑想问LZ
关于第二列的排序是优先字母排序还是优先数字排序的部分?
，今天上午按照字母优先做了下。

1. awk 'BEGIN{i=0;j=0};
   
2. {a[$1,$2]=$2;b[$1]++};
   
3. END{for(c in a)
   
4. {
   
5. s[c]=substr(a[c],1,match(a[c],/[0-9]*$/)-1);
   
6. n[c]=substr(a[c],RSTART,RLENGTH);
   
7. }
   
8. for(d in b)
   
9. {
   
10. printf d": ";
    
11. for(i=0;i<=b[d];i++)
    
12. {
    
13. first=0;
    
14. for(c in s)
    
15. {
    
16. if(index(c,d)!=1){continue}
    
17. if(m[c]==1){continue}
    
18. if(first==0)
    
19. {
    
20. nows=s[c];
    
21. nown=n[c];
    
22. nowc=c;
    
23. first=1;
    
24. continue;
    
25. }
    
26. if(s[c]<=nows&&int(n[c])<=int(nown))
    
27. {
    
28. nows=s[c];
    
29. nown=n[c];
    
30. nowc=c;
    
31. }
    
32. }
    
33. m[nowc]=1;
    
34. if(i==0){lasts=nows;lastn=nown;count=0;continue}
    
35. if(nows==lasts&&int(nown)==int(lastn+count+1)){count++;continue}
    
36. if(count==0)printf lasts lastn;
    
37. else printf lasts lastn"-"lastn+count;
    
38. lasts=nows;
    
39. lastn=nown;
    
40. count=0;
    
41. if(i!=b[d])printf ",";
    
42. }
    
43. printf "\n";
    
44. }
    
45. }'

复制代码