ファイルからの線のフィルタリング

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