Discussion :

[khasanouray]

Bonjour,
Je voudrai 'nettoyer' une chaîne contenant des caractères tels que , () [] :,
je pensais qu'en essayant de déspécialiser ces caractères cela donnerait quelque chose, mais apparemment cela ne marche pas.
Les ancres de mots ne permettent pas de récupérer autre chose que
[A-Za-z0-9_].

[djibril]

montre nous ce que tu as fait pour!! car une regex est suffisant pour faire ce que tu veux

[ptirouquin]

salut utilise quotemeta

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
$var = quotemeta($var)

genre : mon.example va devenir mon\.example
il faut par contre supprimer les \ après si tu veux imprimer ta chaine de caractère avec par example :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
$var =~ s/\\//g;

[khasanouray]

j'ai créé un tableau contenant les caractères spéciaux précédés d'un \
mais sans succès.

[ptirouquin]

il y a une methode un peu bourin, c'est à dire faire la liste de tout les caractère à enlever puis de faire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
$var =~ s/\(//g;
$var =~ s/\)//g;
$var =~ s/\[//g;
$var =~ s/\]//g;
$var =~ s/\,//g;
...

mais c'est pas très beau

[djibril]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
my $caractere = quotemeta("():[];,.");
my $phrase = "bonjour (toto) : [oui] : et?.";
print "$phrase\n";
$phrase =~ s/[$caractere]//gi;
print "$phrase\n";

[khasanouray]

En fait j'ai essayé cette méthode avec des ou(|) et apparemment ça fonctionne, j'ai juste un souci pour contextualiser mon nettoyage.
Exemple enlever toute les virgules sauf celles qui apparaissent dans les décimaux.

[ptirouquin]

j'ai une solution pas très jolie, je pense que djibril va trouver mieux.

tu commence par enlever tous les caractères sauf les virgules ensuite

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
$var =~ s/\d\,\d/\(/g;
$var =~ s/\,//g;
$var =~ s/\(/\,/g;

la tu va garder toutes les virgules entourées de deux chiffres