problème variable dans substitution par regex

Bonjour,


quelqu'un saurait me faire marcher cette substitution ?

Code:

---

1 2 3 4 5

foreach my $char (qw("é" "è" "ê")) { print "$char\t"; $search =~ s/$char/e/; print "$search\n"; }

---

:merci:

Code:

---

1 2 3 4 5

foreach my $char (qw(é è ê)) { print "$char\t"; $search =~ s/$char/e/; print "$search\n"; }

---

Dans un qw() les "" n'ont pas de sens particulier.

Par ailleurs je ferais plutôt ça comme ça :

Code:

---

$search =~ tr/éèê/e/;

---

Ou même directement avec Text::Unaccent.

--
Jedaï

text::unaccent correspond au module que j'allais me faire... :)


:merci:
joyeux noël