Comment puis-je faire correspondre des chaînes qui ne correspondent pas à un modèle particulier en Perl?

Je sais que c'est facile pour correspondre à tout, sauf à un personnage donné à l'aide d'une expression régulière.

$text = "ab ac ad";
$text =~ s/[^c]*//g; # Match anything, except c.

$text is now "c".

Je ne sais pas comment "à l'exception" des cordes à la place des personnages. Comment pourrais-je "correspond à quoi que ce soit, à l'exception de 'ac'" ? Essayé [^(ac)] et [^"ca"], sans succès.

Est-il possible?

source d'informationauteur ssn | 2010-01-21