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

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

$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].

Answer 3

Используйте не жадные в начале, чтобы уменьшить возможности для сюрпризов. Используйте не захватывая паренов, чтобы сгруппировать альтернативы, которые вас не интересуют. Добавьте ? к письму, чтобы сделать его необязательным. Следовательно, попробуйте это:

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

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

Answer 4

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

Answer 5

С другими предложениями я хотел бы предложить взглянуть на perllre для регулярных выражений