Discussion :

[mobscene]

J'ai fait un regexp pour extraire les données ce trouvant dans des champs CDATA , comme vous le savez surement ces champs permettent d'insérer du code sans mettre les caractères réservés au XML sous forme d'entités. Je me suis donc naturellement orienté HTML::Entities pour passer les caracrères en entités.

voici mon regexp

Code :

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

$data =~ s/<(.*)><!\[CDATA\[(.*)\]\]><(.*)>/<$1> encode_entities($2) <$3>/gi

Mon problème c'est que la fonction encode_entities() ne s'execute pas

J'ai donc après avoir regardé du coté de perlretut j'ai fait cela

Code :

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

$data =~ s/<(.*)><!\[CDATA\[(.*)\]\]><(.*)>/<$1>{?( encode_entities($2) )}<$3>/gi;

Mais la fonctions n'est toujours pas appelé !!!

merci !

[Jedai]

Tu confonds les deux côtés de la substitution, la deuxième partie n'est pas une regex, la syntaxe d'une regex ne s'y applique pas.
Normalement cette deuxième partie est traitée exactement comme une chaîne entre double quotes, mais il est parfois (assez souvent même) nécessaire d'y appliquer un traitement plus complexe, on utilise alors le modificateur /e, qui entraîne l'évaluation de la seconde partie (sur laquelle aucune interpolation préalable n'est alors effectuée) :

Code :

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

$data =~ s/<(.*)><!\[CDATA\[(.*)\]\]><(.*)>/"<$1>".encode_entities($2)."<$3>"/egi;

Il est possible d'accumuler les /e, rajoutant un niveau d'évaluation à chaque fois (équivalent à rajouter my $e = '...'; eval $e autour de la seconde partie).

--
Jedaï

[mobscene]

Super merci Jedai , je n'etais pas au courant ce tout cela