【求助】Perl中二維數(shù)組如何排序?

barhe

現(xiàn)在有一個(gè)二維的數(shù)組,如:
$list[0][0]="s"
$list[0][1]="3"

$list[1][0]="d"
$list[1][1]="4"

$list[2][0]="w"
$list[2][1]="2"

$list[3][0]="h"
$list[3][1]="0"

$list[4][0]="j"
$list[4][1]="9"

如果我想按第一列排序,用Perl應(yīng)該怎么做啊?
謝~

海天

#!/usr/bin/perl -w
use strict;
my @list=(
                ["s","3"],
                ["d","4"],
                ["w","2"],
                ["h","0"],
                ["j","9"],
);
my %hash=();
foreach my $row (@list){
        $hash{$row->[0]}=$row->[1];
}
foreach (sort keys %hash){
                print "$_,$hash{$_}\n";
}
不知道能不能滿足你的需求？

barhe

原帖由 海天 于 2006-6-30 17:01 發(fā)表
#!/usr/bin/perl -w
use strict;
my @list=(
                ["s","3"],
                ["d","4"],
                ["w","2"],
         ...

太謝謝你了~
我去試試先~

hellwolf

use strict;

my @list;
$list[0][0]="s";
$list[0][1]="3";

$list[1][0]="d";
$list[1][1]="4";

$list[2][0]="w";
$list[2][1]="2";

$list[3][0]="h";
$list[3][1]="0";

$list[4][0]="j";
$list[4][1]="9";

@list = sort{$a->[1] <=> $b->[1]} @list;

for(@list){
    print $_,' ' for @{$_};
    print "\n";
}

hallucination

如果再加一列應(yīng)該如何處理呢？
my @list=(
                ["s","3","as2"],
                ["d","4"."asssd"],
                ["w","2"."sa"],
          ...

flw

直接 sort 就可以了��！

@list = sort { $a->[0] cmp $b->[0] } @list;

hallucination

my @list=(
                ["1","3a","hh"],
                ["2","4","gg"],
                ["2g","4","ff"],
                ["2g1","4","ff"],
                ["12","2","aa"],
                ["12g","2","bb"],
                ["12g1","2","cc"],
                ["12g2","2","dd"],
                ["12g11","2","ee"],
                ["121","2as","ee"],
                ["122","as2as","asee"],
           );
二位數(shù)組是這樣，按照第一列排序（排成現(xiàn)在這個(gè)結(jié)果），我只是通過(guò)
my @keys =
map ({ join 'g',@{$_} }
    sort ({ $a->[0] <=> $b->[0]
            or $a->[1] <=> $b->[1]}
            map { [split/g/] } @keys
         )
    );（參照仙子的腳本）

對(duì)第一列進(jìn)行排序，不知放到二位數(shù)組中應(yīng)該如何？

xiongce

我暈 這不是跟一維的 一樣的嗎

只不過(guò)在交換數(shù)值的時(shí)候 一維只是交換 list[0] 和 list[1]
                       二維在交換 list[0][0] 和 list[1][0] 后再交換 list[0][1] list[1][1]