首页 手机软件 手机游戏 单机游戏 资讯文章 专题下载 游戏合集 文章合集 php下载 php教程 电脑软件
+ -
当前位置：首页 → 问答吧 → 请问如何批量查询不同学生的记录中符合要求的行数

请问如何批量查询不同学生的记录中符合要求的行数

时间：2011-06-09

来源：互联网

例子如下：
张三      [Tribolium castaneum无脊椎]
张三      [Carboxydibrachium pacificum DSM 12653细菌]
张三      [Thermoanaerobacter tengcongensis MB4细菌]
李四      [Eubacterium biforme DSM 3989细菌]
李四      [Culex quinquefasciatus细菌]
李四      [Dyadobacter fermentans DSM 18053细菌]
孙晓      [Dyadobacter fermentans DSM 18053细菌]
孙晓      [Tribolium castaneum无脊椎]
孙晓      [Acyrthosiphon pisum无脊椎]
。。。。。。
我想同时查询张三，李四，孙晓的所有行里面包含“细菌”的行的个数，返回的结果我希望是这样的
张三  2
李四  3
孙晓  1
。。。。。。
请问各位高手该如何实现？

作者: chenjiali1   发布时间: 2011-06-09

本帖最后由 ulmer 于 2011-06-09 16:29 编辑

回复 chenjiali1
1. using hash as counter.
2. split line to get column 1 as key, column2 as value.
3. pattern match value and count it,
  1. use strict;
  2. use Data::Dumper;

  4. my %counter = ();
  5. while (<DATA>) {
  6.     chomp;
  7.     my ($name, $value) = split /\s+\[/;
  8.     $counter{$name}++ if $value =~ /细菌/;
  9. }
  10. print Dumper \%counter;

  12. __DATA__
  13. 张三      [Tribolium castaneum无脊椎]
  14. 张三      [Carboxydibrachium pacificum DSM 12653细菌]
  15. 张三      [Thermoanaerobacter tengcongensis MB4细菌]
  16. 李四      [Eubacterium biforme DSM 3989细菌]
  17. 李四      [Culex quinquefasciatus细菌]
  18. 李四      [Dyadobacter fermentans DSM 18053细菌]
  19. 孙晓      [Dyadobacter fermentans DSM 18053细菌]
  20. 孙晓      [Tribolium castaneum无脊椎]
  21. 孙晓      [Acyrthosiphon pisum无脊椎]
复制代码

作者: ulmer   发布时间: 2011-06-09

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

  5. my %hash;

  7. while(<DATA>)
  8. {
  9.         my ($name, $info) = split / {2,}/;
  10.         $hash{$name} = [] unless exists $hash{$name};
  11.         push @{$hash{$name}}, $info;
  12. }

  14. my $cnt = 0;
  15. while (my ($key, $value) = each %hash)
  16. {
  17.         print $key,"\t";
  18.         for(@{$value})
  19.         {
  20.                 if (/细菌/)
  21.                 {
  22.                         ++$cnt;
  23.                 }
  24.         }
  25.         print $cnt,"\n";
  26.         $cnt = 0;
  27. }

  29. __DATA__
  30. 张三      [Tribolium castaneum无脊椎]
  31. 张三      [Carboxydibrachium pacificum DSM 12653细菌]
  32. 张三      [Thermoanaerobacter tengcongensis MB4细菌]
  33. 李四      [Eubacterium biforme DSM 3989细菌]
  34. 李四      [Culex quinquefasciatus细菌]
  35. 李四      [Dyadobacter fermentans DSM 18053细菌]
  36. 孙晓      [Dyadobacter fermentans DSM 18053细菌]
  37. 孙晓      [Tribolium castaneum无脊椎]
  38. 孙晓      [Acyrthosiphon pisum无脊椎]
复制代码
perl  xx.pl
张三    2
李四    3
孙晓    1

作者: Cu_fans   发布时间: 2011-06-09

相关阅读 更多

热门阅读

热门下载

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

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

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