Discussion :

[floanne]

Bonjour,

je fais un scripte pour modifier automatiquement des requetes SQL dans des centaine de fichier .pc.
Je localise ma requete avec une expression régulière, je la transforme avec une autre... Tout ce passe bien, et ensuite je remplave la requete d'origine par la requete modifié avec l'expression régulière suivante :

Code :

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

$resCODE =~ s/$tmpREQUETE/$resTMP/gm ;

Ca marche sur quelques fichiers et ensuite ça plante (toujours au même endroit), pendant l'exécution

Code :

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

1
2
3
4
5
Quantifier follows nothing in regex; marked by <-- HERE in m/EXEC SQL
        SELECT  count(* <-- HERE )
        INTO
        :Db_Current:ind_Current
        FROM all_all_tables WHERE table_name = 'INFO_ELMT';/ at gestionDesIndicateurs.pl line 242, <IN> line 80483.

voici le requête matchée :

Code :

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

1
2
3
4
5
EXEC SQL
        SELECT  count(*)
        INTO
        :Db_Current:ind_Current
        FROM all_all_tables WHERE table_name = 'INFO_ELMT';

Il semble donc que c'est l'étoile contenue dans la chaine qui fait tout foiré mais je ne sais pas comment éviter ça...
En fait il faudrai juste remplacer une chaine par une autre...

merci de votre aide...

++floanne.

[djibril]

Bon je vois d'où peut venir le problème. L'etoile est un caractère spéciale, il faut donc la protéger par un backslah.
Tu peux protéger $tmpREQUETE avec quotemeta qui protégera tous les caracteres spéciaux
Donc tu fais $tmpREQUETE = quotemeta($tmpREQUETE);
Ensuite, tu ne peux pas faire la même chose avec $resTMP car perl te mettra des "\" dans tes nouvelles requetes.
Donc à toi de t'assurer de ne pas en avoir dans $resTMP (caractères spéciaux)
puis tu peux faire ensuite

Code :

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

$resCODE =~ s/$tmpREQUETE/$resTMP/gm;

sans souci.

[floanne]

ok merci ça marche très bien !

++floanne.