求PERL数组排序问题

heroinhell

我又一个二维数组，如@t=【【1 2 3】，【4 5 6】，【3，4，5】】，现在想按照第二层数组的第二个数字进行排序，该如何写比较函数？

兰花仙子

perl -MData::Dumper -e '$x=[[1,2,3],[4,5,6],[3,4,5]]; @y=sort {$a->[1]<=>$b->[1]} @$x; print Dumper \@y'

heroinhell

多谢仙子！

heroinhell

刚才试验一下，感觉没有得到我要的结果，很纳闷，我是这样些个
push(@a,[ @w ]);
sort函数

sub mycom{
    $a->[2]<=>$b->[2];
}

没作用，是不是写错了？

heroinhell

仙子再帮忙解答下吧

rubyish

第二个数字

兰花: $a->[1]<=>$b->[1]
你的: $a->[2]<=>$b->[2]

zhlong8

看楼上的回答突然想起来柯南的女朋友叫小兰

c0ldstone

Perl数组，这几天正纠结这块》。。。

heroinhell

不是，提问题的时候我只是举个例子而已，实际比较就是【2】，我的数据实际是按照cmp的方式，但是怎么排都没效果，纳闷了