关于perl中的多重排序。

felix0608

我有一个文件，想先按第一行排序，第一行相同的，再按第四行排序。除了二维hash，直接用数组怎么排序啊？

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

复制代码

bikong0411

自己写sort函数就行了，如楼上

felix0608

回复 2# rubyish   第二行的$_->[2]是什么意思？


   

mcshell

施瓦茨排序

felix0608

回复 5# mcshell 我知道是施瓦茨排序，但是他对第三列做了什么？


   

felix0608

回复 5# mcshell 哈哈，明白了，第三列是指的新构建的数组的第三列，代表整个行。谢谢了。


   

清泉一边

回复 1# felix0608


#!/usr/bin/env perl
use strict;
use warnings;




my @datas = map  { [split ] } <DATA>;
my @sorts = sort { $a->[0] cmp $b->[0] or $a->[3] cmp $b->[3] } @datas;
print join ("\t", @$_), "\n" foreach @sorts;




__DATA__
a b1 c z
a b555 c7 a
c baa c12 b
b bx c66 b
a ab cz c
c cba ac123 a