Discussion :

[Temari]

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 :

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

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 :

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

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

le résultat retrouné est le suivant

Code :

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

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;

[vic]

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

[Jedai]

Tu dois faire un double eval je pense, ainsi :

Code :

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

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

[vic]

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

[Jedai]

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ï

[vic]

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