求助

静女，其姝

while (<INFILE>){
      @a = split;

       if($a[0] eq 'gi|10955262|ref|NC_002127.1|')
        next if($a[3] eq '3306' && $a[2] eq '1')
{
                print  "$a[2]\t$a[3]\n";
        }
}

第一列为'gi|10955262|ref|NC_002127.1|  ，且第3列为1  和  第4列为3306  不同时存在，则输出3、4列。

若第3列为1  和  第4列为3306  同时满足，则跳过

shijiang1130

发几列测试数据给我行不，求你了:wink:

静女，其姝

1     3306
1      230
98    607
120   498
1006  3306
1645  3306
第一行不需要输出




回复 2# shijiang1130


   

shijiang1130

1. while (<INFILE>){
   
2.       @a = split;
   
3.       if($a[0] eq 'gi|10955262|ref|NC_002127.1|') {
   
4.       if($a[3] eq '3306' && $a[2] eq '1'){ next; }
   
5.          print "$a[2]\t$a[3]\n";
   
6.       }
   
7. }

复制代码

你的要求里几列啊。。。

静女，其姝

这个没有影响吧，不过我就是不理解，我那么写究竟错在哪里。

感激不尽！

另外，可否求QQ呢？


回复 4# shijiang1130


   

raoweijian

是不是处理数字应该用==，不是eq？  另外关于next if 的用法好像也有点问题，不过我也是新手，供参考。
我改了一下 这样你看行不行。

1. while(<INFILE>){
   
2.     @a = split;
   
3.     next if($a[0] ne "gi|10955262|ref|NC_002127.1|");
   
4.     next if($a[3]==3306 && $a[2]==1);
   
5.     print "$a[2]\t$a[3]";
   
6. }
   

复制代码

另外我QQ317240762