Regex négative pour la correspondance du modèle de chaîne Perl

Question

J'ai cette regex :

 if($string =~ m/^(Clinton|[^Bush]|Reagan)/i)
  {print "$string\n"};

Je veux rivaliser avec Clinton et Reagan, mais pas avec Bush.

Ça ne fonctionne pas.

Answer 1

Votre regex ne fonctionne pas car [] définit une classe de caractères, mais ce que vous voulez, c'est une prévision :

 (?=) - Positive look ahead assertion foo(?=bar) matches foo when followed by bar
(?!) - Negative look ahead assertion foo(?!bar) matches foo when not followed by bar
(?<=) - Positive look behind assertion (?<=foo)bar matches bar when preceded by foo
(?<!) - Negative look behind assertion (?<!foo)bar matches bar when NOT preceded by foo
(?>) - Once-only subpatterns (?>\d+)bar Performance enhancing when bar not present
(?(x)) - Conditional subpatterns
(?(3)foo|fu)bar - Matches foo if 3rd subpattern has matched, fu if not
(?#) - Comment (?# Pattern does x y or z)

Alors essaie : (?!bush)

Answer 2

Exemple de texte :

Clinton a dit Bush a utilisé des crayons Reagan a oublié

En omettant juste un match de Bush :

 $ perl -ne 'print if /^(Clinton|Reagan)/' textfile
Clinton said
Reagan forgot

Ou si vous voulez vraiment préciser :

 $ perl -ne 'print if /^(?!Bush)(Clinton|Reagan)/' textfile
Clinton said
Reagan forgot

Answer 3

Quel est le problème avec l'utilisation de deux expressions régulières (ou trois) ? Cela rend vos intentions plus claires et peut même améliorer vos performances :

 if ($string =~ /^(Clinton|Reagan)/i && $string !~ /Bush/i) { ... }

if (($string =~ /^Clinton/i || $string =~ /^Reagan/i)
        && $string !~ /Bush/i) {
    print "$string\n"
}