操作csv這樣的表格在perl處理文件中是經(jīng)常要碰到的。這樣的表類似二維數(shù)組,因此實際上的操作時對二維數(shù)組的操作了。
對這樣的行列表格,我們常常需要按照某列,或者先按照某列,再按另一列進行排序,這里貼上perl的實現(xiàn),以便下次使用查找。
看下面這段代碼。
復制代碼 代碼如下:
#!/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";
}
注意:
對于大的文件,最好不要這么用。
該腳本會把數(shù)據(jù)全部搬到內(nèi)存。