perl對m x n類似表進行按列排序的代碼_perl

操作csv這樣的表格在perl處理檔案中是經常要碰到的。這樣的表類似二維數組，因此實際上的操作時對二維數組的操作了。
對這樣的行列表格，我們常常需要按照某列，或者先按照某列，再按另一列進行排序，這裡貼上perl的實現，以便下次使用尋找。

看下面這段代碼。

複製代碼 代碼如下:

#!/usr/bin/perl
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";
}

注意：
對於大的檔案，最好不要這麼用。
該指令碼會把資料全部搬到記憶體。