從文件中過濾行

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