首页›文章›perl对文件按列排序

perl对文件按列排序

计算机技术 · perl 程序开发2014-09-010次浏览0 个评论

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

评论加载中…

发表评论

0/2000