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