当前位置：首页 > 资讯 > 技术文档

perl对m x n类似表进行按列排序的代码

时间：2022-02-22 02:15 编辑：来源：阅读：
扫一扫，手机访问

摘要：perl对m x n类似表进行按列排序的代码

操作csv这样的表格在perl处理文件中是经常要碰到的。这样的表类似二维数组，因此实际上的操作时对二维数组的操作了。对这样的行列表格，我们常常需要按照某列，或者先按照某列，再按另一列进行排序，这里贴上perl的实现，以便下次使用查找。看下面这段代码。

[u]复制代码[/u] 代码如下:

#!/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)

上一篇：perl中heredoc使用说明
下一篇：perl的cgi高级编程介绍

资讯排行榜
更多>>