關(guān)于perl中的多重排序。

felix0608

我有一個(gè)文件，想先按第一行排序，第一行相同的，再按第四行排序。除了二維hash，直接用數(shù)組怎么排序��？

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

復(fù)制代碼

bikong0411

自己寫sort函數(shù)就行了，如樓上

felix0608

回復(fù) 2# rubyish   第二行的$_->[2]是什么意思？


   

mcshell

施瓦茨排序

felix0608

回復(fù) 5# mcshell 我知道是施瓦茨排序，但是他對第三列做了什么？


   

felix0608

回復(fù) 5# mcshell 哈哈，明白了，第三列是指的新構(gòu)建的數(shù)組的第三列，代表整個(gè)行。謝謝了。


   

清泉一邊

回復(fù) 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