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

 更新时间:2013年02月09日 17:51:25   作者:  
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读写文件简单示例

    Perl读写文件简单示例

    这篇文章主要介绍了Perl读写文件简单示例,本文直接给出实现代码,需要的朋友可以参考下
    2015-04-04
  • 使用Perl生成随机密码

    使用Perl生成随机密码

    本文给大家分享的是使用perl生成随机密码的方法示例,而且可以通过参数来控制密码中包含的字符种类,非常的不错,有需要的小伙伴可以参考下
    2016-06-06
  • perl面向对象实例

    perl面向对象实例

    这篇文章主要介绍了perl面向对象实例,本文讲解了一个类只是一个简单的包、对象仅仅只是引用、一个方法就是一个简单的子程序等内容,并给出了一个简单示例,需要的朋友可以参考下
    2014-11-11
  • perl的格式化输出及chomp的重要性分析

    perl的格式化输出及chomp的重要性分析

    perl格式化输出的一个例子,使用了chomp,需要的朋友可以参考下
    2013-02-02
  • perl跳过首行读取文件的实现代码

    perl跳过首行读取文件的实现代码

    要求直接跳过第一行,然后读取后面的内容,以下代码来自网络,感谢原作者的辛苦劳动,顺祝新年快乐
    2013-02-02
  • Perl6中的垃圾收集

    Perl6中的垃圾收集

    今天小编就为大家分享一篇关于perl6垃圾收集的文章,小编觉得内容挺不错的,现在分享给大家,具有很好的参考价值,需要的朋友一起跟随小编来看看吧
    2018-10-10
  • perl用{}修饰变量名的写法分享

    perl用{}修饰变量名的写法分享

    在perl中用{}修饰变量名,可以防止 _ 被解释为变量名的一部分
    2013-02-02
  • perl与shell获取昨天、明天或多天前的日期的代码

    perl与shell获取昨天、明天或多天前的日期的代码

    这篇文章主要介绍了perl与shell获取昨天、明天或多天前的日期的代码,需要的朋友可以参考下
    2014-04-04
  • Perl中的单行注释和多行注释语法

    Perl中的单行注释和多行注释语法

    这篇文章主要介绍了Perl中的单行注释和多行注释语法,本文还同时讲解了其它常见编程语言的单行注释和多行注释语法,需要的朋友可以参考下
    2015-06-06
  • Perl实现的Linux下socket代理服务器

    Perl实现的Linux下socket代理服务器

    这篇文章主要介绍了Perl实现的Linux下socket代理服务器,比较简洁的一个版本,需要的朋友可以参考下
    2014-08-08

最新评论