我是靠谱客的博主 爱撒娇小刺猬,最近开发中收集的这篇文章主要介绍perl对m x n类似表进行按列排序的代码,觉得挺不错的,现在分享给大家,希望可以做个参考。

概述

操作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对m x n类似表进行按列排序的代码的全部内容,希望文章能够帮你解决perl对m x n类似表进行按列排序的代码所遇到的程序开发问题。

如果觉得靠谱客网站的内容还不错,欢迎将靠谱客网站推荐给程序员好友。

本图文内容来源于网友提供,作为学习参考使用,或来自网络收集整理,版权属于原作者所有。
点赞(113)

评论列表共有 0 条评论

立即
投稿
返回
顶部