perl对m x n类似表进行按列排序的代码
perl对m x n类似表进行按列排序的代码
发布时间:2016-12-28 来源:查字典编辑
摘要:操作csv这样的表格在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";

}

注意:

对于大的文件,最好不要这么用。

该脚本会把数据全部搬到内存。

推荐文章
猜你喜欢
附近的人在看
推荐阅读
拓展阅读
相关阅读
网友关注
最新perl学习
热门perl学习
脚本专栏子分类