Perl экстракт регулярного выражения часть строки с множественным условием

Question

Что единственное регулярное выражение, которое позволяет мне захватить весь текст, который идет после are genes и is gene из этого текста

The closest human genes of best are genes A B C 
The closest human gene of best is gene A 

Поэтому я надеюсь извлечь $1, которые содержат

A B C 
A 

попытался это, но не в состоянии:

$line =~ /The closest .* gene[s] (.*)$/; 

Answer 1

$line =~ /The closest .* genes? (.*)$/; 

Answer 2

$ perl -F/genes*/ -ane 'print $F[-1];' file 
A B C 
A 

Answer 3

С другими предложениями, я хотел бы предложить, чтобы иметь взгляд на perllre for Regular Expressions

Answer 4

Использование нежадным в начале, чтобы уменьшить возможности для сюрпризов. Используйте non-capture parens для группировки альтернатив, которые вам не нужны. Приложите ? к письму, чтобы сделать его необязательным. Следовательно, попробуйте следующее:

$line =~ /The closest .*? (?:is|are) genes? (.*)$/; 

Чтобы увидеть, где вы собираетесь неправильно BTW, просто сравните выше с тем, что вы изначально были попытки.

Answer 5

Я думаю, что наиболее явно это:

$line =~ m/best \s (?:is \s gene|are \s genes) \s ([\p{IsUpper}](?: \s [\p{IsUpper} ])*)/x; 

Конечно, если вы знаете, что все предложения будут грамматическими, то вы можете сделать (?:are|is) вещь. И если вы знаете, что у вас будут только гены A-N или что-то еще, вы можете забыть \p{IsUpper} и использовать [A-N].