如何将文本每行的字符长度进行排列？

iocg

      就是每行字符长度从小到大排列

1. 11  11
   
2. 1 2 3
   
3. 1234  1234
   
4. 2
   
5. 1 2
   
6. 12345 5
   
7. .....

复制代码

1. 
   
2. 2
   
3. 1 2
   
4. 1 2 3
   
5. 11  11
   
6. 12345 5
   
7. 1234  1234
   
8. .....

复制代码

有没有直接用AWK或者sed的方法？？

关阴月飞

1. awk '{print length($0)"\t"$0|"sort -n|cut -f2-"}' urifle

复制代码

银风冷月

1. awk 'BEGIN{maxLen=0;}{len=length($0); maxLen=maxLen<len?len:maxLen; a[len"_"NR]=$0;}END{tmpLen=NR>maxLen?NR:maxLen;for (j=1;j<=tmpLen;j++) {for(i=1;i<=tmpLen;i++){val=a[j"_"i];if(val!=""){print val;}}}}' file

复制代码

群里大神写的，谁优化下

yestreenstars

纯awk for 4.0

1. awk '{l=length;a[b[l]=l][NR]=$0}END{for(i=0;i++<asort(b);)for(j in a[b[i]])print a[b[i]][j]}'

复制代码

银风冷月

1. with open('C:\\test.txt') as f:
   
2.         l = []
   
3.         for i in f:
   
4.             l.append(i.strip())
   
5.         l.sort(key=lambda x:len(x))
   
6.         for i in l:
   
7.             print i

复制代码

   试了试用python写的，大神别笑话我

yestreenstars

perl版

1. perl -ne '$h{length $_}{$.}=$_;END{for $k1(sort{$a<=>$b}keys %h){for $k2(keys %{$h{$k1}}){print $h{$k1}{$k2}}}}'

复制代码

yestreenstars

纯awk for 低版本

1. awk '{l=length;a[l]=l;b[l]=b[l]!=""?b[l]"\n"$0:$0}END{for(i=0;i++<asort(a);)print b[a[i]]}'

复制代码

WilliBhamlll

1. awk '{l=length;a[$0]=l;b[l]=$0}END{for(i=0;i++<asort(a,c);)print b[c[i]]}'

复制代码

yestreenstars

回复 8# WilliBhamlll
这是没考虑到长度相同的行~{:2_172:}

   

WilliBhamlll

回复 9# yestreenstars


    考虑不周{:3_186:}