Comment rendre une expression Perl d'expression régulière facultative?

Question

Je veux correspondre

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

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

Il ne correspondant à Joe. il ne devrait pas correspondre à autre chose

Answer 1

Faire correspondre uniquement 'Joe' comme le texte entier?

/^(Joe)$/ 

ou de faire correspondre Joe comme seul mot?

/\b(Joe)\b/ 

ou de 'Joe' non suivi de 'Tree'?

/^(Joe)(?!Tree)/ 

Answer 2

Vous ne avez pas besoin d'expressions régulières pour cela:

if ($_ eq 'Joe') { 
    print "matched $_"; 
}