关于perl中的多重排序。

rubyish

biru:

1. my @data = map { [ (split)[ 0, 3 ], $_ ] } <DATA>;
   
2. my @sort = map { $_->[2] }
   
3.   sort { $a->[0] cmp $b->[0] || $a->[1] cmp $b->[1] } @data;
   
4. 
   
5. say @sort;
   
6. 
   
7. __DATA__
   
8. a b1 c z
   
9. a b555 c7 a
   
10. c baa c12 b
    
11. b bx c66 b
    
12. a ab cz c
    
13. c cba ac123 a

复制代码