Discussion :

[babap1]

Bonsoir le forum,

j'aimerai remplacer des caractères dans une variable pour une question de compatibilité avec un parser XML.

Si ma chaine contient les caractères : &, ", <, >, ' alors il faut les remplacer par : &amp, &quote, &gt, &alt, &apos

D'après les FAQs sur les expressions régulières je pense à quelque chose comme ça mais je ne suis pas sûr :

Code :

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

$variable =~ tr/[&"<>']/&amp;&quote;&lt;&gt;&apos;

Mais il me semble qu'il y a un souci.. ?
Quelqu'un a-t-il une solution ?

Merci d'avance,
bap

[matafan]

tr/// ne sert qu'à remplacer un caractère par un autre caractère. Avec tu ne peux pas remplacer un caractère par une chaine de caractère. Utilises plutôt s///g.

[babap1]

Bon bon, je suis arrivé à quelque chose :

Code :

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

1
2
%xml=('&'=>'amp', '"'=>'quote', '<'=>'lt', '>'=>'gt',"'"=>'apos')
 $variable=~ s/([&"<>'])/"&".$xml{$1}.";"/ge

Voila! Bonne soirée,
Bap

[djibril]

Sinon utilise le module HTML::Entities

Code :

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

1
2
3
use HTML::Entities;
my $a = "&\"<>'";
print encode_entities($a, "&\"<>'");

[babap1]

Merci pour le coup de main.
A très bientôt,
Bap