从文件中过滤行

Question

我想从包含“ExprControl”或“5p3pAssays”或“Fusion”的文件中捕获行。

但是，我想跳过同时包含“Fusion”和“NoCall”的行。我如何正确省略这些行？下面的代码不能跳过同时包含“Fusion”和“NoCall”的行。谢谢。

... 
     open my $in_fh, '<', $full_tsv_file 
     or die qq{Unable to open "$full_tsv_file" for input: $!}; 

     while (<$in_fh>) { 

      next if /^#/; 
      next if /\b(?:Fusion&NoCall)\b/; 
    next unless /\b(?:ExprControl|5p3pAssays|Fusion)\b/; 


      my @fields = split('\t'); 

      my $location = $fields[$location_col]; $location =~ s/"//g; 
... 

Answer 1

&在正则表达式中并不意味着“和”。与&&匹配，而不是两次：

while (<>) { 
    next if /^#/ || /\bFusion\b/ && /\bNoCall\b/; 
    next unless /\b(?:Fusion|5p3pAssays|ExprControl)\b/; 
    print; 
} 

测试反对：

a ExprControl b 
c 5p3pAssays d 
e Fusion f NoCall g 
h NoCall i Fusion j 
k Fusion l