[pl/sql] Récupérer des données dans fichier

Version imprimable

Bonjour,

j'ai la procédure suivante:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
 
PROCEDURE recup_web IS
   ADRESSE VARCHAR2(255);
   LA_PAGE UTL_HTTP.HTML_PIECES;
   DEBUT NUMBER;
   FIN NUMBER;
   TRAVAIL VARCHAR2(4000);
   LIGNE VARCHAR2(2000);
   TYPE_FICHIER VARCHAR2(10);
   FICHIER UTL_FILE.FILE_TYPE;
   YDDD VARCHAR2(4);
   W_ROOT VARCHAR2(50);
BEGIN
   W_ROOT :='/home/';
   SELECT TO_CHAR(SYSDATE,'YDDD') INTO YDDD FROM dual;
   ADRESSE:='http://www.toto.fr/questions/flux/questionnaire2.php4';
   LA_PAGE := UTL_HTTP.REQUEST_PIECES(ADRESSE);
   FICHIER:=UTL_FILE.FOPEN(W_ROOT,'QUEST_WEB'||YDDD||'.TXT','w');
     IF LA_PAGE.COUNT=1 
   THEN
            DEBUT:=1;
		FIN:=0;
		DEBUT:=INSTR(LA_PAGE(1),'<debut ',DEBUT);
		WHILE debut<>0 LOOP
		   FIN:=INSTR(LA_PAGE(1),'</fin>',DEBUT);
		   LIGNE:=SUBSTR(LA_PAGE(1),debut+11,FIN-(DEBUT+11));
		  TYPE_FICHIER:=SUBSTR(LA_PAGE(1),debut+7,3);
		  IF TYPE_FICHIER='que' 
		  	 THEN UTL_FILE.PUT_LINE(FICHIER,LIGNE); 
		  END IF;
		  DEBUT:=INSTR(LA_PAGE(1),'<debut ',FIN);
		END LOOP;
   ELSE
	   FOR I IN 1 .. LA_PAGE.COUNT-1
	   LOOP
	    TRAVAIL:= LA_PAGE(I) || LA_PAGE(I+1);
	    DEBUT:=1;
		FIN:=0;
		DEBUT:=INSTR(TRAVAIL,'<debut ',DEBUT);
		WHILE debut<>0 AND ((debut<2000 AND i< LA_PAGE.COUNT-1) OR i= LA_PAGE.COUNT-1) LOOP
		  FIN:=INSTR(TRAVAIL,'</fin>',DEBUT);
		  LIGNE:=SUBSTR(TRAVAIL,debut+11,FIN-(DEBUT+11));
		  TYPE_FICHIER:=SUBSTR(LA_PAGE(i),debut+7,3);
		  IF TYPE_FICHIER='que' 
		  	 THEN UTL_FILE.PUT_LINE(FICHIER,LIGNE); 
		  END IF;
		  DEBUT:=INSTR(TRAVAIL,'<debut ',FIN);
		END LOOP;
	   END LOOP;
   END IF;
   	   UTL_FILE.FCLOSE(FICHIER);
   COMMIT;  
   END recup;

Cette procédure permet de récupérer des informations via une page php qui génère des lignes, lignes correspondant à des données d'une base mysql .
Voici à quoi ressemble le fichier que j'obtiens:

Code:

1
2
3
4
5
 
<debut que>0210125834510072006BB B21     V   D  E  F  GQ1 R I     BC  FB        M  N J                               00060DEAB</fin>
<debut que>0210135024010072006DC B31      C               R I            ABC EFB        M                                    00100DEBB</fin>
<debut que>0210138154510072006DDAB21      C               R I  J  z.Zt. bei           A C   B       H       Fit for Fan                   00050ECAB</fin>
<debut que>0210031282110072006DD B42     V   D              I                  C  FA            E                                00050DBBB</fin>

Mais à chaque fois je ne récupère pas toutes les données de base de données mysql.
il me manque 3 4 lignes. Je pense que cela vient de ma procédure PL/SQL car quand je vais directement sur ma page PHP, je recupère bien toutes mes données.

Cela fait plusieurs temps que j'essaye de voir d'où cela peut venir mais je ne trouve pas.
Si quelqu'un pouvait m'aider ce serait très sympa.

10/07/2006, 15h48
claralavraie

Apparemment, il ne prendrait pasla prmière lignes et les dernières lignes.
Peut être y a t'il un problème avec mes variables?
11/07/2006, 08h54
claralavraie

Cette procédure s'excute la nuit...
je n'ai aucune donnée qui a été inséré dans le fichier QUEST.
Pourtant j'ai des données dans ma base.
Je ne comprends pas...

Il faut utiliser des traces pour comprendre. notament votre système de boucle.

Code:

WHILE debut<>0 LOOP

Code:

1
2
3
4
5
6
FOR I IN 1 .. LA_PAGE.COUNT-1
 
  WHILE debut<>0 AND ((debut<2000 AND i< LA_PAGE.COUNT-1) OR i= LA_PAGE.COUNT-1) LOOP
 
    IF TYPE_FICHIER='que' 
		  	 THEN UTL_FILE.PUT_LINE(FICHIER,LIGNE);

11/07/2006, 09h39
claralavraie

Citation:

Envoyé par SheikYerbouti

Il faut utiliser des traces pour comprendre. notament votre système de boucle.

Comment utilise t'on les traces?
Hier j'ai parsemé ma procédure de DBMS_OUTPUT.PUT_LINE pour voir ce qu'elle faisait...
Mais le sysètème de traces est peut être plus pratique?
Cependant je ne l'ai jamais utilisé.
11/07/2006, 12h07
SheikYerbouti

Oui, c'est ça. en parlant de trace je parlais effectivement de DBMS_OUTPUT.
11/07/2006, 14h23
claralavraie

Hier quand j'ai fait ça, ma procédure fonctionnait très bien.
Mais quand elle se lance la nuit elle ne me ramène aucune donnée ou quelques unes.
11/07/2006, 14h27
claralavraie

Non en fait elle ne fonctionne qu'une fois sur 2.
Cette procédure a été créé par un collègue mais il n'est plus là donc je dois résoudre le problème.
Un vrai casse tête pour comprendre ce qu'il a fait.
11/07/2006, 14h46
claralavraie

Ok j'ai replcé des traces.
Et apparemment pour les derniers enregistrements il n'arrive pas à trouver le type fichier.
il est à vide. de ce fait, il n'enregistre rien dans le fichier.
Je vais essayer de comprendre pourquoi.
11/07/2006, 15h05
claralavraie
J'ai un doute sur cette procédure.
Je viens de remarquer qu'on incrémente jamais I..donc la condition
Code:

1 2 WHILE debut<>0 AND ((debut<2000 AND i< LA_PAGE.COUNT-1) OR i= LA_PAGE.COUNT-1) LOOP
ne sera jamais verifié...
il faudrait peut être changé cette condition..
Quelqu'un peut il me donner son avi?

je pense que je peux changer la boucle commen cela:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 FOR I IN 1 .. LA_PAGE.COUNT-1 LOOP TRAVAIL:= LA_PAGE(I) || LA_PAGE(I+1); DEBUT:=1; FIN:=0; DEBUT:=INSTR(TRAVAIL,'<debut ',DEBUT); WHILE debut<>0 LOOP FIN:=INSTR(TRAVAIL,'</fin>',DEBUT); LIGNE:=SUBSTR(TRAVAIL,debut+11,FIN-(DEBUT+11)); TYPE_FICHIER:=SUBSTR(TRAVAIL,debut+7,3); IF TYPE_FICHIER='que' THEN UTL_FILE.PUT_LINE(FICHIER,LIGNE); END IF; DEBUT:=INSTR(TRAVAIL,'<debut ',FIN); END LOOP; I:=I+1; END LOOP
donc je n'ai plus que un seul test dans ma boulce et j'incrémente mon I quand je sors de ma boucle.
Etes vous d'accord?
Je pense que cela fonctionnera mieux comme cela

11/07/2006, 15h28
SheikYerbouti
Citation:
Envoyé par claralavraie

J'ai un doute sur cette procédure.
Je viens de remarquer qu'on incrémente jamais I..donc la condition

Code:

1 2 WHILE debut<>0 AND ((debut<2000 AND i< LA_PAGE.COUNT-1) OR i= LA_PAGE.COUNT-1) LOOP

ne sera jamais verifié...
mais si !

Code:

FOR I IN 1 .. LA_PAGE.COUNT-1
11/07/2006, 15h35
Nounoursonne
je ne comprends pas l'utilité du
Code:

1 2 TRAVAIL:= LA_PAGE(I) || LA_PAGE(I+1);
sinon tu n'as pas besoin d'incrémenter le I, il s'incrémente implicitement dans le FOR
12/07/2006, 09h46
claralavraie

Excat je n'ai pas besoin de l'incrémenter ;-)

Donc hier j'ai essayé la procédure.
Elle m'a bien ramené enregistrés tous les enregistrements.
Cette nuit je pensais donc que la procédure allait fonctionner correctement.
Et non aucun enregistrement dans mon fichier alors que dans ma base MY_SQL j'en aavais.
De plus dans la base MY SQL j'ai ajouté un champ date qui permet de savoir si l'enregistrement a bient été envoyé.
ces dates ont été mises à jour Donc cela veut dire que la procédure a fonctionné.
Mais pourquoi ne me ramène telle aucune rows?
Quelqu'un peut il m'orienter vers une solution?
Merci.
12/07/2006, 10h09
Nounoursonne

est ce que le fichier est crée ?
12/07/2006, 10h16
claralavraie

Oui ce fichier est créé.
mais aucune ligne dedans.
Est il possible qu'il n'arrive pas à accéder à l'adresse indiqué?
Mais dans ce cas j'aurais une erreur non?
12/07/2006, 10h22
Nounoursonne

c'est un job qui lance la procédure ?
ce job n'est pas en erreur ?
12/07/2006, 10h39
claralavraie

non non aucune erreur.....
j'ai un fichier de log qui m'indique que la procédure a bien été excecutée.
12/07/2006, 10h51
Nounoursonne

est tu sure de pouvoir acceder au dit site à l'heure où tu lances la procédure ?
parce que là je ne vois pas d'erreur apparente...
12/07/2006, 11h00
claralavraie

C'est ce que je me demande aussi.
Mais si je n'arrive pas à y accéder, il ne me mettrai pas une erreur justement?
12/07/2006, 11h02
Nounoursonne

bah non je ne penses pas
mais pour en être sure, tu peux tester ta procedure avec un site bidon et tu verras le résultat
12/07/2006, 11h38
claralavraie

Je viens d'essayer.
En effet je n'ai aucune erreur.
Donc cela peut venir de ça...
Mais la page que j'appelle met à jour les données dans la base MYSQL.
Ces données sont mises à jour donc cela signifie t'il pas qu'il accède à la page?
13/07/2006, 16h49
Vincent_D
Je te conseille de décomposer ton programme :
1- Récupérer ta page http
Pense à rajouter un bloc d'exception pour la lecture http
Code:

1 2 3 4 EXCEPTION WHEN utl_http.init_failed THEN raise_application_error(-20000, 'Ca va mal'); WHEN utl_http.request_failed THEN raise_application_error(-20000, 'Ca va mal');
2- Reconstituer le fichier de données
Code:

1 2 3 4 5 TRAVAIL VARCHAR2(32000); FOR I IN 1 .. LA_PAGE.COUNT LOOP TRAVAIL:= TRAVAIL || LA_PAGE(I); END LOOP;
3.- Analyser le fichier de données
(il serait bon de trapper les exceptions lors de l'écriture dans le fichier).

Si tu as rajouté des traces dans ton programme (dbms_output), il n'est pas exclu que ce soit elles qui fasse planter (lors d'un dépassement de taille du buffer)
Vérifie la remontée des erreurs...