perl中经常有会遇到处理CSV格式的文件,这样的文件类似二维数组,因此实际上的操作时对二维数组的操作了。
对这样的行列表格,我们常常需要按照某列,或者先按照某列,再按另一列进行排序,具体的操作可以看一下下面的实现:
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";
}注意:
对于大的文件,最好不要这么用。
该脚本会把数据全部搬到内存。
评论
0评论加载中…