请教:单字母到多字母排序

biomasm

in.txt为:
AB        2        10%
BCD        4        20%
A        2        10%
B        3        15%
BC        2        10%
ABC        7        35%
期望out.txt为:
A        2        10%
B        3        15%
AB        2        10%
BC        2        10%
BCD        4        20%
ABC        7        35%

空格为Tab.
排序标准:
1.第一字段单字母到多字母
2.第二字段数字从小到大.

pupilzeng

1. 
   
2. #!/usr/bin/perl -w
   
3. 
   
4. open FH,"in.txt";
   
5. my @lines = ();
   
6. while(<FH>;){
   
7.    chomp;
   
8.    my @a = split /\t/, $_;
   
9.    push @lines, [@a];
   
10. }
    
11. @lines = sort {length($a->;[0]) <=>; length($b->;[0])
    
12.                ||
    
13.                $a->;[1] <=>; $b->;[1]} @lines;
    
14. print $_->;[0],"\t", $_->;[1],"\t", $_->;[2], "\n" foreach(@lines);
    
15. close FH;
    
16. 
    

复制代码

biomasm

是二维数组啊,呵呵,今天正式见识了.收获不小啊.
多谢pupilzeng!牛人,承教!

xiaojianredhat

1. @lines = sort {length($a->;[0]) <=>; length($b->;[0])
   
2.               ||
   
3.               $a->;[1] <=>; $b->;[1]} @lines;
   
4. print $_->;[0],"\t", $_->;[1],"\t", $_->;[2], "\n" foreach(@lines);

复制代码

不懂！可否解释下
勿怪！！！

pupilzeng

length($a->;[0]) <=>; length($b->;[0]) #当长度不相等时，就返回它们的比较结果，这时，这个表达短路，否则进行后面的比较
             ||
             $a->;[1] <=>; $b->;[1]

寂寞烈火

还是用shell简单

1. 
   
2. while read a b c;do
   
3.         echo ${#a} $a $b $c
   
4. done<in.txt|sort -k +1 +3 -n|cut -f2- -d' '>;out.txt
   

复制代码

pupilzeng

[quote]原帖由 "寂寞烈火"][/quote 发表：

发现您就是一shell高手
以前也看过一段时间的shell编程，可那么多的小程序，实在是记不住它们的用法，语法

apile

這樣也很簡單..

1. 
   
2. open(FF,"in.txt");
   
3. map { print $_->;[1]; }
   
4.    sort { length($a->;[0]) <=>;length($b->;[0]) || $a->;[0] cmp $b->;[0] }  
   
5.    map{[(split(/\t/))[0], $_]}  <FF>; ;
   
6. close(FF);
   
7. 
   

复制代码