Discussion :

[floanne]

bonjour,

j'ai un traitement à faire sur un grand nombre de requete dans des .pc...

Pour cela j'ai fait un scripte qui m'identifi les requetes SQL contenant des variables commancant pas :db_ suivies par une autre cammancant par :ind_... et j m'arrete au ";" de la commande SQL.

Mon expression régulière marche bien pour la première requete mais ensuite j'ai une boucle infinie.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
	# on recopie les parties du programme que l'on ne modifie pas
	# et on traite la requete ensuite...
	while (	$txt =~ /((?:.*))(EXEC SQL(?:[^;]*):db_(?:[^;]*):ind_(?:[^;]*);)/gsmi ||
		$txt =~ /(.+)/gsmi)
	{
		$res = $res.$1 ;
		$tmp = $2 ;
		if ($tmp)
		{
			print ("\n\t¤¤¤ requete ¤¤¤ = \n\n$tmp\n\n") ;
 
			if (($tmp =~ /(FETCH.*INTO)/) || ($tmp =~ /(SELECT.*INTO)/))
			{
				$res = $res."\n".&traiterIndicateur ($tmp, @pointH) ;
			}
			else
			{
				$res = $res."\n".&initIndicateur ($tmp, @pointH) ;
			}
		}
		print "FIN DU WHILE\n"
	}

sortie :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
        ¤¤¤ requete ¤¤¤ =
 
EXEC SQL FOR :Db_UpdatedItemsCount:ind_UpdatedItemsCount UPDATE TYP_INFO
        SET     ADBS_REF = NULL
        WHERE   ROWID = :Db_T_Rowid:ind_T_Rowid;
 
FIN DU WHILE
FIN DU WHILE
FIN DU WHILE
FIN DU WHILE
FIN DU WHILE
FIN DU WHILE
FIN DU WHILE
FIN DU WHILE
FIN DU WHILE
FIN DU WHILE
FIN DU WHILE
FIN DU WHILE
etc.

merci
++floanne.

[djibril]

pourquoi faire un while ? ton probleme vient de là.

[floanne]

ben pour pouvoir traiter une à une toutes les requetes... Sinon je n'aurai que la première.

++floanne

[djibril]

la condition

Code :

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

$txt =~ /(.+)/gsmi)

sera probablement toujours vrai d'où ta boucle infinie

[floanne]

oui effectivement... cette expression est là pour récupérer la fin du fichier lorsqu'il n'y a plus de requette (pour le recopier dans le résultat ($res)).

Seulement il me semble qu'une foie arrivé à la fin du fichirer il devrai s'arreter ?

++floanne.

[Woufeil]

Bonjour,

Est ce que le sous-prog traiterIndicateur modifie la valeur de $txt ? Parce que dans ton while, $txt n'est jamais modifié, donc si la condition du while est vérifiée une fois, elle le sera tout le temps...

[floanne]

Non elle n'est pas modifiée... Mais c'est pas la première foie que je fait une boucle dans ce genre et normalement ça s'arrete à a fin du fichier...

++floanne.

[floanne]

exemple de while qui marche très bien :

Code :

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

1
2
3
4
5
6
 
	while ($txt =~ /include(?:.*)\"(\w*\/)*(\w*\.h)\"/ig)
	{
#		print "\t- $2\n" ;
		push (@pointH, $2) ;
	}

Ce code récupère tous les .h en début de fichier... Et ça s'arrete !



++floanne.

[floanne]

Ca marche mieux sans le s...

Code :

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

while (	$txt =~ /((?:[.\n]*))(EXEC SQL(?:[^;]*):db_(?:[^;]*):ind_(?:[^;]*);)/igm)

mais bon ça fait pas encore tout à fait ce que je veux...

Je voudrai matcher toutes mes requetes tout en recopiant le reste du code dans mon resultat...

J'ai pensé à faire d'une magnière différante : je copie $txt (le fichier non modifié) dans le résultat $res puis je matche mes requetes sur $txt. Je recupère ces requetes, je les traite, et je remplace dans $res la requete d'origine par la requete traitée :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
	while (	$txt =~ /(EXEC SQL(?:[^;]*):db_(?:[^;]*):ind_(?:[^;]*);)/igm)
	{
#		$res = $res.$1 ;
#		$tmp = $2 ;
		$tmp = $1 ;
		if ($tmp)
		{
			print ("\n\t¤¤¤ requete ¤¤¤ = \n\n$tmp\n\n") ;
 
			if (($tmp =~ /(FETCH.*INTO)/sm) || ($tmp =~ /(SELECT.*INTO)/sm))
			{
				$resTMP = "\n".&traiterIndicateur ($tmp, @pointH) ;
				print "\tresTMP 1 = \n$resTMP" ;
#				$res =~ s/$tmp/$resTMP/gm ;
			}
			else
			{
				$resTMP = "\n".&initIndicateur ($tmp, @pointH) ;
				print "\tresTMP 2 = \n$resTMP" ;
#				$res =~ s/$tmp/$resTMP/gm ;
			}
		}
	}

mais si je décomante les deux lignes ou je ramplace la requete ça pete à la première itération...
Ca me fait un message de 10000 lignes qui se termine par ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
    AND         pm.EQP_RCP_NOM = m.EQP_RCP_NOM
    AND         se1.LOG_SUPP_NAME = m.SUPP_NOM
    AND         se1.LOGICAL_EQP_NAME = m.EQP_EMT_NOM
    AND         se1.SA = m.SS_ADR_EMT
    AND         se1.WAY = 'T'
    AND         NVL(se1.WORD_COUNT, 0) = NVL(m.WORD_COUNT, 0)
    AND         NVL(m.INFO_REF, 0) = 0
    AND         se1.INFO_DBLK_REF  =
                DECODE(NVL(m.INFO_REF, 0), 0, -1)
    AND         se2.LOG_SUPP_NAME  = m.SUPP_NOM
    AND         se2.LOGICAL_EQP_NAME  = m.EQP_RCP_NOM
    AND         se2.SA  = m.SS_ADR_RCP
    AND         se2.WAY = 'R'
    AND         NVL(se2.WORD_COUNT, 0) = NVL(m.WORD_COUNT, 0)
    AND         se2.INFO_DBLK_REF  =
                DECODE(NVL(m.INFO_REF, 0), 0, -1);/ at gestionDesIndicateurs.pl line 237, <IN> line 75701.