从Perl中删除所有东西直到某个单词

Question

我需要从Perl中的所有行删除所有东西直到某个特定的单词。 假设我有这3个行

Helicobacter Contig1 
Helicobacter contig1 
Helicobacter .Contig1 

我想有contig1或群1

我已经试过

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

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

Answer 1

删除第二个^

您正则表达式应该是s/^(.*?)(?=contig|Contig)//g;

的.*?是不贪婪，所以会尽快，因为它可以阻止（即当它看到重叠群重叠群或）。您还可以使用\i修饰符来使匹配大小写不敏感，因此您不必检查两个不同的字符串。