首页 手机软件 手机游戏 单机游戏 资讯文章 专题下载 游戏合集 文章合集 php下载 php教程 电脑软件
+ -
当前位置：首页 → 问答吧 → 救命呀，perl求和及过滤难题

救命呀，perl求和及过滤难题

时间：2010-10-08

来源：互联网

各位大虾们，小弟跪求解决方法，因工作需要，需对文本文件中的数据进行累加求和及过滤，文本文件中的内容如下：
列1       列2
aaaa     3
bbbb     2
cccc       9
dddd     4
eeee    1
aaaa    4
aaaa    2
eeee    2
bbbb    2

小弟想要得到结果是：如果《列1》中有重复的数据，则去重，并且累加《列2》中值；如果累计后的《列2》值小于5，就把此列过滤掉。
结果：
列1       列2
aaaa     9
cccc       9

小弟在线等，还请大虾们多多指教~

作者: ontherd   发布时间: 2010-10-08

本帖最后由 longbow0 于 2010-10-08 15:53 编辑
  1. my %data;

  3. while (<FH>) {
  4.     my ($key, $val) = split /\s+/;
  5.    
  6.     if (defined $data{$key}) {
  7.         $data{$key} += $val;
  8.     }
  9.     else {
  10.         $data{$key} = $val;
  11.     }
  12. }

  14. for my $key (sort keys(%data)) {
  15.     next if $data{$key} < 5;

  17.     print $key, "\t", $data{$key}, "\n";
  18. }
复制代码

作者: longbow0   发布时间: 2010-10-08

本帖最后由 珞水的大叔 于 2010-10-08 15:35 编辑

试试这个
  1. #!/usr/bin/perl
  2. use strict;
  3. use warnings;



  7. my %result = ();
  8. my $title;
  9. while(<DATA>){
  10.     chomp;
  11.     if($. == 1){
  12.         $title = $_;
  13.         next;
  14.     }
  15.     my ($key,$value) = split /\s+/,$_;
  16.     $result{$key} += $value;
  17. }

  19. print $title,"\n";
  20. for(sort keys %result){
  21.     print "$_ $result{$_}\n" if $result{$_} >= 5;
  22. }


  25. exit;

  27. __DATA__
  28. 列1    列2
  29. aaaa     3
  30. bbbb     2
  31. cccc     9
  32. dddd     4
  33. eeee    1
  34. aaaa    4
  35. aaaa    2
  36. eeee    2
  37. bbbb    2
复制代码
如果不管标题列，那么下面的更有趣：
  1. #!/usr/bin/perl
  2. use strict;
  3. use warnings;



  7. my %result = ();
  8. grep { my ($key,$value) = split /\s+/,$_;$result{$key} += $value } <DATA>;
  9. grep { print "$_ $result{$_}\n" if $result{$_} >= 5 }sort keys %result;

  11. exit;

  13. __DATA__
  14. aaaa     3
  15. bbbb     2
  16. cccc     9
  17. dddd     4
  18. eeee    1
  19. aaaa    4
  20. aaaa    2
  21. eeee    2
  22. bbbb    2
复制代码

作者: 珞水的大叔   发布时间: 2010-10-08

回复 珞水的大叔


    小弟想咨询下：
$result{$key} += $value;
上面这句这么理解，还请您给些文字性描述。

作者: ontherd   发布时间: 2010-10-08

回复 longbow0


    非常谢谢您，

作者: ontherd   发布时间: 2010-10-08

本帖最后由 珞水的大叔 于 2010-10-08 16:02 编辑

回复 ontherd


    $result{$key} = $result{$key} + $value;

    不会你没有用过hash吧……

作者: 珞水的大叔   发布时间: 2010-10-08

回复 珞水的大叔


    呵呵~~~，说来惭愧。经过你的讲解，现在已经理解了。

小弟，还有个问题想问您下：
在Linux下，我刚才试了您写的perl program来处理500万条数据，CPU就上升到90%左右，难道perl不能处理大批量的数据吗？？？

作者: ontherd   发布时间: 2010-10-08

难道为了处理得快一点，CPU占用率高一点是过错吗？

作者: wxlfh   发布时间: 2010-10-08

回复 ontherd


    你不会是吧500万的数据贴到了脚本里面的__DATA__之后了吧……

作者: 珞水的大叔   发布时间: 2010-10-08

，主要是在现网服务器上运行，我们有监控，cpu高于80%就报警。

作者: ontherd   发布时间: 2010-10-08

，主要是在现网服务器上运行，我们有监控，cpu高于80%就报警。

作者: ontherd   发布时间: 2010-10-08

，主要是在现网服务器上运行，我们有监控，cpu高于80%就报警。

作者: ontherd   发布时间: 2010-10-08

回复 珞水的大叔


        我在里面加了一行代码：
   if (! open DATA,"<","文本文件.txt" {
die "cannot open datafile!";
}

不知道是不是您说的把数据都加到了____DATA____   里了。

作者: ontherd   发布时间: 2010-10-08

回复 ontherd


    哦，不用放到脚本里
   至于为什么占用cpu这么多我也没有遇到过……
    请达人们help解答一下

作者: 珞水的大叔   发布时间: 2010-10-08

相关阅读 更多

热门阅读

热门下载

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

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

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