求助文件处理的问题，谢谢

nanshanjin

我这里有一个文件，有三列数据，如下
chr gene1 gene2
chr1 genea   .
chr1 geneb   .
chr1 genec   gene
...    ...         .
chr2 ...        gene
...    ...         .
第一列是染色体，第二列是全部的基因，...是省略号，第三列相对于第二列有基因对应，在该位置就有一个基因，没有的话就有一个"."，现在第三列两个基因之间的"."的数量大于50个的话就舍去，小于50则保留，然后输出保留后的三列数据，求大神解答

sunzhiguolu

现在第三列两个基因之间的"."的数量大于50个的话就舍去，小于50则保留，然后输出保留后的三列数据

没看太懂, 能否说的详细些. 我对基因没啥概念. 贴出个最后的结果瞧瞧, 谢谢.

nanshanjin

其实就是第三列两个基因间“.”的数量大于50的话，就删除，然后输出回复 2# sunzhiguolu


   

sunzhiguolu

回复 3# nanshanjin
如何计算呢, 是连续的 . , 还是第一次第三列是 . 到最后一行第三列为 . 的之间的数量大于 50 才舍去. 不好意思, 理解能力有点弱.

   

nanshanjin

可能我说的不清楚吧，是第三列两个基因之间的“.”的数量，是连续的类似于
.
.
gene1
.
.
.
.
gene2
gene3
.
gene4
然后如果“.”数量大于4的去掉，那么结果就是
.
.
gene1
gene2
gene3
.
gene4
当然第一列和第二列也一起输出吧。
回复 4# sunzhiguolu


   

sunzhiguolu

回复 5# nanshanjin
你试下, 我随便填了一些数据.

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my ($sLimit, @aBin) = (4);
   
6. while (<DATA>){
   
7.         if (/\.$/){
   
8.                 push (@aBin, $_);
   
9.         }else{
   
10.                 if (@aBin and @aBin < $sLimit){
    
11.                         print for @aBin;
    
12.                 }
    
13.                 print;
    
14.                 undef (@aBin);
    
15.         }
    
16. }
    
17. __DATA__
    
18. chr gene1 gene2
    
19. chr1 genea   .
    
20. chr1 geneb   .
    
21. chr1 genec   gene
    
22. chr2 geneb         .
    
23. chr2 genea       .
    
24. chr2 geneb         .
    
25. chr2 genea       .
    
26. chr2 geneb         .
    
27. chr2 genea       .
    
28. chr3 genac        gen3

复制代码

nanshanjin

谢谢，试试看回复 6# sunzhiguolu


   

jason680

回复 6# sunzhiguolu

modify ...

while(<DATA>){
  if(/[.]\s*$/){
    push @aBin, $_;
    next;          # using "next" & without "else" block
  }
  if(1 <= @aBin and @aBin < $sLimit){
    print @aBin;   # without for function
  }
  print;
  @aBin = ();
}

   

sunzhiguolu

回复 8# jason680
大神您好, 您说使用 next, 在这个问题中 next 与 if else 相比有什么优势吗. 还请指点, 谢谢.

   

jason680

回复 9# sunzhiguolu

>> ... next 与 if else 相比有什么优势吗.
   
相比....你比了吗？

怎会不知道差异与优势....