首页 手机软件 手机游戏 单机游戏 资讯文章 专题下载 游戏合集 文章合集 php下载 php教程 电脑软件
+ -
当前位置：首页 → 问答吧 → 一个perl排序的问题

一个perl排序的问题

时间：2010-07-31

来源：互联网

我的一个文件，内容如下：

ch1       28      name23
ch1       12      name99
ch1       15      name88
........

我想把里面的行按照 12 ， 15 ， 18排序，然后生成一个新的文件， 如下:


ch1       12      name99
ch1       15      name88
ch1       28      name23

.....

我该怎么做啊？

多谢！

作者: gridbird   发布时间: 2010-07-31

用sort命令最简单
sort +1n txt
  1. #!/usr/bin/perl -w
  2. use strict;
  3. open(HAND,"txt") || die "$!";
  4. my @a=<HAND>;
  5. print sort sort_a @a;

  7. sub sort_a {
  8. my ($a1,$a2,$a3)=split /\s+/,$a;
  9. my ($b1,$b2,$b3)=split /\s+/,$b;
  10. $a2<=>$b2 or $a3 cmp $b3;
  11. }
复制代码
这个是按照第2列和第3列进行排序

作者: 99超人   发布时间: 2010-07-31

将第二列作为HASH键值，排序后输出，也很方便的：
  1. #!/usr/bin/perl

  3. use strict;
  4. use warnings;
  5. open(HAND,"test.txt") || die "$!";
  6. my %hash;
  7. while (<HAND>) {
  8.          my (@rows) = split /\s+/;
  9.          $hash{$rows[1]} = $_;
  10. }
  11. foreach my $key (sort keys %hash) {
  12.         print "$hash{$key}";
  13. }
复制代码

作者: iamlimeng   发布时间: 2010-07-31

相关阅读 更多

热门阅读

热门下载

更多
关于本站 免责申明 联系我们

Copyright 2006-2020 php爱好者(phpfans.net) All Rights Reserved.备案号：湘ICP备2023016114号-2

本站为非盈利性网站，不接受任何广告。本站所有资源均由网友上传，如有侵权，请发邮件至 [email protected] phpfans.net