如何使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