uninitialized value in print - recup données de BDD

Version imprimable

23/02/2006, 12h25
pimousse_on_ice

uninitialized value in print - recup données de BDD
Bonjour,

j'ai un petit souci avec mon code. Tout fonctionne très bien sauf que mon log est tout moche :

Code:

uninitialized value in print at test.pl line 680

J'explique mon programme :

- j'exécute une requête sur Oracle (Select ....)
- je récupère le résultat via le fetchrow_array
- j'écris le résultat de la requête dans un fichier
Code:

1 2 3 while (my ($champ1,$champ2,...)=$req -> fetchrow_array){ print FILE ($champ1, $champ2,...); }
En bref, le principe est de descendre le contenu d'une table dans un fichier.

J'ai constaté que le message "d'erreur" venait du fait que certaines données récupérées de la base étaient vides (donc impossible à imprimer dans un fichier ? ).
je dis "message d'erreur" car mon fichier est correctement généré.

Comment me débarrasser de ces messages ?

Si quelqu'un a une idée.... :wink:
Merci !

[/code]
23/02/2006, 13h29
Invité

Tu exécutes ton script avec les commutateurs -w ?
23/02/2006, 13h54
pimousse_on_ice

euh... 8O désolé mais .. c'est quoi ? :? :?:

-w sur le shebang

Code:

1
2
3
4
5
6
7
 
#!/usr/bin/perl -w
use strict;
use Carp;
 
ton script...
......

23/02/2006, 14h20
pimousse_on_ice

ok...

non, je fais sans :

Code:

#!/usr/bin/perl
23/02/2006, 15h23
Invité

Et y'a quoi à la ligne 680 ?
23/02/2006, 15h39
pimousse_on_ice
à la ligne 680, c'est l'instruction "print"
Code:

1 2 3 line 679 : while (my ($champ1,$champ2)=$req-> fetchrow_array){ line 680: print FILE ($champ1, $champ2); line 681: }
je pense que c'est à cause des variables qui ne contiennent rien. Ma requete étant un SELECT

Code:

SELECT ch1, ch2 FROM table

le chp 2 peut être null... et je pense que le message "uninitialized..." apparait quand ma variable $champ2 qui est censé récupérer la valeur de ch2 est null.... mais pour la génération de mon fichier, ce n'est pas génant.

Le pb, c'est ce message qui pourrit mon log. J'ai bien des astuces pour contourner le pb, mais ça fait un peu bricolage... et mon client est plutot tatillon la-dessus :twisted:

je me demandais si qn avait déjà eu le pb ou s'il y avait un truc PERL que je ne connais pas qui me sauverai de la torture :evil: ...

je continue mes recherches et je vous dis quoi
23/02/2006, 16h09
Invité

Et si tu mets :

Code:

print FILE ($champ1, $champ2) unless $champ2 = undef;
23/02/2006, 18h22
pimousse_on_ice

non, toujours le même message. (même pire étant donné qu'il le réaffiche à cause du "unless $champ2 = undef..."

Re: uninitialized value in print - recup données de BDD

Et avec un :

Code:

1
2
3
while (my ($champ1,$champ2,...)=$req -> fetchrow_array){
    print FILE map { if (defined($_)) { $_ } else { " " } }($champ1, $champ2,...);
}

:?:

23/02/2006, 18h33
pimousse_on_ice
Ok -
j'ai compris d'où ça venait exactement... en fait, c'est le fait de récupérer les données dans des variables déclarées dans le "while" qui le fait râler

donc au lieu de faire
Code:

1 2 3 while( my ($champ1, $champ2) = $req-> fetchrow_array){ print FILE ($champ1, $champ2); }
il vaut mieux faire
Code:

1 2 3 4 my ($champ1, $champ2); while ($champ1, $champ2)=$req->fetchrow_array){ print FILE ($champ1, $champ2); }
comme ça, dans tous les cas, les variables $champ1 et $champ2 existent et.... sont surement initialisées avec un truc, vu qu'apparemment, ça ralait parce que elles n'étaient pas initialisées !

bah, c'est un peu casse pied parce que ça m'oblige à déclarer pas mal de variables....
avant je le faisais oui... mais elles n'étaient connues que dans le while... mais là, va falloir faire gaffe au noms car j'ai en fait une vingtaine de descentes de tables à faire qui contiennent chacune une trentaine de champs.... ça risque pas de faire une surcharge ?? :?
m'enfin...

merci les gars de vous être pencher sur le pb ! :wink:
23/02/2006, 18h35
2Eurocents

Pourquoi ne pas récupérer le résultat de ta requête dans un vrai tableau @champs, plutot que dans une liste créée à chaque fois ($champ1, $champ2, ...) ?

Dans le cas de l'utilisation d'un tableau, ne pas oublier de le vider (@champs=()) avant chaque nouvelle récupération ;)
23/02/2006, 18h41
pimousse_on_ice

ouh! j'avais pas vu 2Eurocents !

YES ! ça marche !!

MERCI !! MERCI !! tu pas pas savoir à quel point ! on voit les gens qui maitrisent qd mm ! Messieurs (mesdames ?), chapeaux bas... 8)

Je vais m'offrir le plaisir de rendre ce topic "Résolu"... héhé !
Merci encore !
24/02/2006, 10h42
pimousse_on_ice

j'avais pensé aussi au tableau.. mais ça ne changeait rien quant au message lors du print... mais ta solution marche très bien ! merci !! :P