Expression régulière: supprimer tous les caractères spéciaux

Je croyai avoir compris, mais j'ai toujours du mal.

En fait, maintenant j'ai une chaine de caractere dans laquelle je souhaite supprimer tout les caractere qui ne sont pas compris dans: [a-zA-Z0-9] ainsi que les espaces de celle-ci.

Je fait donc ça:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

my $unechaine = "Manip-ulati@ on"; my $chainefinal; while (length($unechaine) > 0){ $lengthchaine = length($unechaine); if (substr($unechaine,0,1) =£ /^[0-9a-zA-Z]*$/){ if (substr($unechaine,0,1) ne " "){ $chainefinal.=substr($unechaine,0,1); } else{ $unechaine = substr($unechaine,-($lengthchaine-1)) } } else { $unechaine = substr($unechaine,-($lengthchaine-1)); } } my bonnechaine = $chainefinal;

---

Hors je trouve que cela n'est pas pratique, et surtout long. N'est il pas possible de faire la meme chose avec une expression reguliere??

PS: le £ represente le caractere "vague" qu'il faudrait ecrire a la place de £.

Bonjour,
je vien de trouver ça :
Comment supprimer des espaces blancs au début/à la fin d'une chaîne ?
Pour remplacer les caractères spéciaux par des espaces :

Code:

---

1 2 3 4

for ($string) { s/[\W]+/ /; }

---

:? je vai testé comme je débute en Perl mais si ça marche pas, ça aura au moins le mérite d'être beau :P

Essaye ça ...

Code:

---

1 2 3

my $unechaine = 'Manip-ulati@ on'; $unechaine =~ s/[^[:alnum:]]//g; print "$unechaine\n";

---

Et voilà le travail :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

#!c:\Perl\bin\perl.exe -w   use Strict;   my $string = "ess?ai!";   while($string =~ s/[\W]+//) { }   print $string;

---

[edit]J'étais pas loin :( [/edit]

Code:

---

1 2	$chaine =~ s/[^\w]+_*//g;

---

\w => caractere alphanumerique _ compris
donc on suprimme aussi le _
voilà