如何对列表按字符长度排序

angleeye

用awk的实现：

1. 
   
2. BEGIN{a=0}
   
3. {
   
4.         a+=1;
   
5.         s[a]=$0;
   
6.         sl[2*a]=length($0);
   
7.         sl[2*a+1]=a;
   
8. }
   
9. END{
   
10. #        for (i=1;i<=a;i++)
    
11. #                print s[i];
    
12. 
    
13.         print "total count is "a;
    
14.         for (i=1;i<=a-1;i++)
    
15.         {
    
16.                 for(j=i+1;j<=a;j++)
    
17.                 {
    
18.                         if(sl[2*i]<sl[2*j])
    
19.                         {
    
20.                                 temp=sl[2*i];
    
21.                                 sl[2*i]=sl[2*j];
    
22.                                 sl[2*j]=temp;
    
23.                                 temp=sl[2*i+1];
    
24.                                 sl[2*i+1]=sl[2*j+1];
    
25.                                 sl[2*j+1]=temp;
    
26.                         }
    
27.                 }
    
28.         }
    
29. #        for (i=1;i<=a;i++)
    
30. #        {
    
31. #                print "i="i;
    
32. #                print sl[2*i+1];
    
33. #        }       
    
34.         for (i=1;i<=a;i++)
    
35.                 print s[sl[2*i+1]];
    
36. }
    

复制代码

waker

1. awk '{b=length($0);a[b]=a[b]"\n"$0;if(b>max)max=b;}
   
2. END { for (i=max;i>=0;i--) {if(a[i]){ sub(/^\n/,"",a[i]); print  a[i]}}}' file
   

复制代码

700724

waker的代码简直是出神入画,能讲讲你在很多awk代码中都用到END是什么意思,具体作用是什么?谢谢!

angleeye

原帖由 "waker"]awk '{b=length($0);a=a[b 发表：
"\n"$0;if(b>max)max=b;}
END { for (i=max;i>=0;i--) {if(a){ sub(/^\n/,"",a); print  a}}}' file

damm!
so nice !
pfpf
学习中.....

angleeye

[quote]原帖由 "700724"]waker的代码简直是出神入画,能讲讲你在很多awk代码中都用到END是什么意思,具体作用是什么?谢谢![/quote 发表：

BEGIN,END,是一些特殊的匹配，
分别在开始和结束的时候运行，
其他的是在每行上面应运