éliminer des caractères d'une chaine.

Bonjour,

je cherche à éliminer tous les caractères non alphanumèrique d'une chaine de caractères excepté "-".
pour le moment je fais ça, mais j'élimine bien sûr tout.

Code:

---

$name =~ s/\W//gs;

---

Comment faire pour garder le "-" ?

Merci par avance.

hello,

peux-tu montrer quelques types de données que tu as à traiter ?

Essaye :

Code:

---

$name = join "", $name =~ /([\w\-]+)/gs;

---

Citation:

---

Envoyé par Philou67430

Essaye :

Code:

---

$name = join "", $name =~ /([\w\-]+)/gs;

---

---

Hello Philou,

peux-tu commenter le code ?

join ""
la virgule

Code:

---

([\w\-]+)

---

j'imagine que cela veux dire : capture tous les alphanumériques + les tirets (qui normalement ne sont pas pris par le \W)...le + : le tout rencontrer 1 ou plusieurs fois ?

join est une fonction perl qui concatène des chaines à l'aide d'un séparation (ici, le séparateur est une chaine vide).
Les éléments concaténés sont les sous-chaines extraites des parenthèses capturantes de l'expression régulière dont tu semble avoir saisi le sens du motif.

Ok, merci pour ta réponse :ccool:

tellement débutant, que je serais vraiment passé par tout autre chose de bien plus long pour faire ce que tu as fait !

pour mon petit niveau, c'est juste la grande classe (pour toi sûrement simplicime) :D

Pour information, il est possible de le faire sans passer par join :
Il suffit d'utiliser le '^' qui permet d'inverser une classe.

Code:

---

1 2	$s =~s/[^a-z0-9\-]//ig;

---

PS : \w prend en compte le caractère '_'. D'où l'utilisation de a-z et 0-9.