從Perl中刪除所有東西直到某個單詞

Question

我需要從Perl中的所有行刪除所有東西直到某個特定的單詞。 假設我有這3個行

Helicobacter Contig1 
Helicobacter contig1 
Helicobacter .Contig1 

我想有contig1或羣1

我已經試過

$test=s/^(.*?)^(contig|Contig)//g; 

，但它無法正常工作。任何想法？

Answer 1

刪除第二個^

您正則表達式應該是s/^(.*?)(?=contig|Contig)//g;

的.*?是不貪婪，所以會盡快，因爲它可以阻止（即當它看到重疊羣重疊羣或）。您還可以使用\i修飾符來使匹配大小寫不敏感，因此您不必檢查兩個不同的字符串。