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