Variables et Expression Regulière

Bonjour,

Je cherche à remplacer des lignes d'un fichier texte.
Je récupère mes motifs de recherche et de remplacement dun aun autre fichier texte, que je reformatte un peu, nottament pour précéder les caractères spéciaux par un backslash.
Mon problème est que le texte ne sort pas comme je le souhaite.

Code:

---

1 2	$regles{"REGLES"}{$idregle}{"CHANGEOLDBLOC"} = (.*) (.*?)\.QTTIT_T3(.*) $regles{"REGLES"}{$idregle}{"CHANGENEWBLOC"} = $1 ZZ9K\.ZZ9K_QTTIT$3

---

ces deux variables font parties d'une table dehashage remplie par lecture d'un fichier et ne sont pas explicitement déclarée comme cela.

lorsque j'utilise la fonction suivante

Code:

---

$sortie[$i] =~ s/$regles{"REGLES"}{$idregle}{"CHANGEOLDBLOC"}/$regles{"REGLES"}{$idregle}{"CHANGENEWBLOC"}/gi;

---

le résultat retrouné est le suivant

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Source avant : IF W_TEST = 1 THEN PUT SKIP LIST('TR4:' !! PMTIT.QTTIT_T3); IF PMTIT.QTTIT_T3 ^> 0 /* OK Ag FITIT */ THEN DO;   Source après :   IF W_TEST = 1 THEN $1 ZZ9K\.ZZ9K_QTTIT$3 $1 ZZ9K\.ZZ9K_QTTIT$3 THEN DO;

---

Je pense que tu dois créer une chaine contenant la regexp et faire un eval dessus pour que les variables fonctionnent.

Tu dois faire un double eval je pense, ainsi :

Code:

---

1 2	s/$regles{"REGLES"}{$idregle}{"CHANGEOLDBLOC"}/$regles{"REGLES"}{$idregle}{"CHANGENEWBLOC"}/eegi;

---

Le premier niveau d'eval est fait d'office par perl donc un seul "e" devrait suffire :-)

Citation:

---

Le premier niveau d'eval est fait d'office par perl donc un seul "e" devrait suffire

---

Non, Perl fait une interpolation en temps normal, si on mets un /e, l'interpolation est remplacée par une évaluation : on peut donc mettre n'importe quelle "expression" pour la partie remplacement, comme par exemple une fonction. Ici on a simplement une variable qui est donc évaluée, il faut évaluer son contenu pour que le remplacement se fasse, d'où le deuxième /e.

--
Jedaï

OK je ne savais pas que l'interpolation était remplacée par une évaluation .. ça parait assez logique quand on y réfléchit un peu ;)