Question

perl 中m行n列的列表按任一列排序怎么做啊？

Answer 1

楼上正解。
如三行三列数据分别为id name age：
1 wang 20
2 zeng 21
3 cheng 18
比如数据的文件名为t1.txt可以进行如下操作：
open (FH ,"t1.txt") or die print "error $!" ;
my @all= <FH>;
my @alldata;
foreach(0..$#all)
{
my @row = split " " , $all[$_];
my %rowdata;
$rowdata{"id"} = $row[0];
$rowdata{"name"} = $row[1] ;
$rowdata{"age"} = $row[2] ;
$alldata[$_] = \%r;
}
@alldata = {$rowdata{$a}<=>$rowdata{$b}}@alldata; #然后对得到哈希数组进行排序：
#然后输出：
foreach(@alldata )
{
print $_->{"id"},"\t",$_->{"name"},"\t",$_->{"age"},"\n";
}
#＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
#或者参考下面.
my @line;
while（<>）
{
chomp;
push @line, [ split ];
}
foreach ( sort { $a->[0] <=> $b->[0] or $a->[1] <=> $b->[1] or $a->[2] <=> $b->[2] } @line)
{
print @$_, "\n";
}

Answer 2

先用split分割出你要排列的那一列数据，并保存为哈希表的key值，该哈希表的value值保存的是该key值所在行的内容。
然后对key值排序。
最后将value值输出。
over