Как я могу сделать часть регулярного выражения Perl необязательной?

Question

Я хочу матч

 my @array = ( 'Tree' , 'JoeTree');

    foreach (@array ) {
      if ( $_ =~ /^(Joe)Tree/gi) {
        print "matched $_";
      }
    }

Это соответствует только JoeTree. Это не соответствует Дерево?

Answer 1

Попробуйте:

if (/^(?:Joe)?Tree/gi)

• Мы сделали необязательной деталь Joe.
• Также вы можете изменить (..) на (?:...), поскольку вы просто группируете.
• Также часть $_ =~ является избыточной, так как по умолчанию мы регистрируем $_

Answer 2

Вы пропустили ?: /^(Joe)?Tree/gi