【求助】Perl中二维数组如何排序?

barhe

现在有一个二维的数组,如:
$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应该怎么做啊?
谢~

海天

#!/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 发表
#!/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

如果再加一列应该如何处理呢？
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"],
           );
二位数组是这样，按照第一列排序（排成现在这个结果），我只是通过
my @keys =
map ({ join 'g',@{$_} }
    sort ({ $a->[0] <=> $b->[0]
            or $a->[1] <=> $b->[1]}
            map { [split/g/] } @keys
         )
    );（参照仙子的脚本）

对第一列进行排序，不知放到二位数组中应该如何？

xiongce

我晕 这不是跟一维的 一样的吗

只不过在交换数值的时候 一维只是交换 list[0] 和 list[1]
                       二维在交换 list[0][0] 和 list[1][0] 后再交换 list[0][1] list[1][1]