Message dans le fichier log

Version imprimable

Voir 40 message(s) de cette discussion en une page

Citation:

Use of uninitialized value in substitution (s///) at /data/infsvg/apache/lib/perl/infsvgApache.pm line 332.
Use of uninitialized value in concatenation (.) or string at /data/infsvg/apache/lib/perl/infsvgApache.pm line 333.
Use of uninitialized value in concatenation (.) or string at /data/infsvg/apache/lib/perl/infsvgApache.pm line 333.

Voici la fonction qui génére ces erreurs
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 sub give_class_table { my @classe=split(';',$_[0]); my @selection=split(';',$_[1]); my @rejet=split(';',$_[2]); my $nb_el=@classe-1; my $table=" <TABLE BORDER=1 class=periode cellspacing=0 cellpadding=0 align=center width=95%> <TR> <TD class=titleperiode ALIGN=CENTER>classes</TD> <TD class=titleperiode ALIGN=CENTER>selection</TD> <TD class=titleperiode ALIGN=CENTER>rejets</TD> </TR>"; for ( my $k=0; $k < $nb_el ;$k++ ) { $rejet[$k] =~s/^ / /; $table=join('',$table," <TR> <TD class=periode ALIGN=CENTER>$classe[$k]</TD> <TD class=periode ALIGN=CENTER>$selection[$k]</TD> <TD class=periode ALIGN=CENTER>$rejet[$k]</TD> </TR>"); } $table=join('',$table," </TR> </TABLE>"); return $table; }
On utilise cette fonction, dans un autre script perl

Code:

my $Prevclasse=infsvgApache::give_class_table($row[9],$row[10],$row[11]);

Voici un exemple de valeur récupérée

Citation:

classes | selection | rejet
---------------------+-----------+-------
/etc/hosts ; | |
/etc/hosts ; | |
/data ; /etc ; | |
/data ; /etc ; | |
ALL_LOCAL_DRIVES ; | |
ALL_LOCAL_DRIVES ; | |
ALL_LOCAL_DRIVES ; | |
ALL_LOCAL_DRIVES ; | |

Avez-vous une idée concernant les raisons de ces messages d'erreurs?
D'avance merci pour votre aide

Dans cette boucle
Code:

1 2 for ( my $k=0; $k < $nb_el ;$k++ ) { $rejet[$k] =~s/^ / /;
Tu parcoures la table @rejet pour ses indices relatifs à la table @classe.
Si les deux tables sont de tailles différentes, tu vas utiliser des valeurs $rejet[$k] qui ne sont pas définies.

Je t'invite à utiliser le module List::MoreUtils de la sorte :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 my $iterator = each_array(@classe, @selection, @rejet); while ( my ($classe, $selection, $rejet) = $iterator->() ) { $rejet =~s/^ / /; $table=join('',$table," <TR> <TD class=periode ALIGN=CENTER>$classe</TD> <TD class=periode ALIGN=CENTER>$selection</TD> <TD class=periode ALIGN=CENTER>$rejet</TD> </TR>"); } $table=join('',$table," </TR> </TABLE>"); return $table; }

10/06/2010, 16h28
JUSTIN Loïc

Merci pour ta réponse philou67430

Je teste cela de suite et je te tiens au courant.
10/06/2010, 16h38
Philou67430

Cela dit, dans ton code original, tu avais écris :

Code:

my $nb_el=@classe-1;

Signifiant que $nb_el contenait le nombre d'élément dans @classe moins 1. Je ne sais pas si c'est réellement ce que tu voulais faire, mais si tu voulais vraiment ignorer le dernier élément, il faudrait alors modifier le code que j'ai proposé.

Voici ou j'en suis
1) Installation du module List::MoreUtils récupéré sur le site CPAN
Installation ok
2) Modification du script en ajoutant au début

Code:

use List::MoreUtils qw( each_array );

3) Modification de la fonction, par contre là j'aurais besoin d'une confirmation pour l'initialisation des variables @classe @selection @rejet. Par contre, je ne pourrais te dire pourquoi my $nb_el=@classe-1. Car, j'ai repris l'administration de ces scripts, je n'en suis pas le créateur malheureusement...
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 sub give_class_table { my @classe=split(';',$_[0]); my @selection=split(';',$_[1]); my @rejet=split(';',$_[2]); my $nb_el=@classe-1; my $table=" <TABLE BORDER=1 class=periode cellspacing=0 cellpadding=0 align=center width=95%> <TR> <TD class=titleperiode ALIGN=CENTER>classes</TD> <TD class=titleperiode ALIGN=CENTER>selection</TD> <TD class=titleperiode ALIGN=CENTER>rejets</TD> </TR>"; my $iterator = each_array(@classe, @selection, @rejet); while ( my ($classe, $selection, $rejet) = $iterator->() ) { $rejet =~s/^ / /; $table=join('',$table," <TR> <TD class=periode ALIGN=CENTER>$classe</TD> <TD class=periode ALIGN=CENTER>$selection</TD> <TD class=periode ALIGN=CENTER>$rejet</TD> </TR>"); } $table=join('',$table," </TR> </TABLE>"); return $table; }
Cela fonctionne mais j'ai toujours mes messages d'erreurs

11/06/2010, 10h19
Philou67430

Peux-tu préciser quelle ligne (et pas numéro de ligne) provoque l'erreur ?
11/06/2010, 10h44
JUSTIN Loïc
Voici les deux lignes qui génèrent des erreurs
Code:

1 2 334 $rejet =~s/^ / /; 335 $table=join('',$table,"
Citation:

Use of uninitialized value in substitution (s///) at /data/infsvg/apache/lib/perl/infsvgApache.pm line 334.
Use of uninitialized value in concatenation (.) or string at /data/infsvg/apache/lib/perl/infsvgApache.pm line 335.
11/06/2010, 11h03
Philou67430
Pourrais-tu donner le résultat de l'affichage suivant :
Code:

1 2 3 4 give_class_table { warn "give_class_table:".(join ", ", map "[$_]", @_)."\n"; ... }
(pour le cas faisant l'erreur).
11/06/2010, 11h12
JUSTIN Loïc

Voici les traces demandées

Citation:

give_class_table:[/etc/hosts ; ], [], []
give_class_table:[ALL_LOCAL_DRIVES ; ], [], []
give_class_table:[/data ; /etc ; ], [], []
11/06/2010, 12h00
Philou67430
En fait, tes tableaux @selection et @rejet seront vides.

Si tu es en version 5.10, tu peux procéder ainsi :
Code:

1 2 while ( my ($classe, $selection, $rejet) = $iterator->() ) { $_ //= "" foreach $classe, $selection, $rejet;
Ce qui aura pour effet de définir une chaine vide pour les valeurs de $classe, $selection ou $rejet qui ne seraient pas définies.

Avant une version perl inférieure, tu peux l'écrire
Code:

1 2 while ( my ($classe, $selection, $rejet) = $iterator->() ) { $_ = "" foreach grep !defined, $classe, $selection, $rejet;
11/06/2010, 14h25
JUSTIN Loïc

Etant avec une version perl inferieure à 5.10, j'ai donc utilisé la deuxieme solution, elle fonctionne correctement.
Je n'ai plus de message d'erreur. :ccool:
Il me reste plus qu'à installer ces modifications sur le serveur de production.
Car effectivement, j'ai la chance d'avoir un serveur de developpement. Où, je peux faire mes tests sans gener qui que ce soit.
Encore merci pour ton aide Philou67430
16/06/2010, 12h02
JUSTIN Loïc

Message d'erreur dans le fichier log suite:
j'ai à nouveau des erreurs dans le fichier log

Citation:

Use of uninitialized value in hash element at /data/infsvg/apache/perl/app/mon_scrip.pl line 864.

Voici la ligne 864

Code:

$table->setColWidth(1,'22%');

Car, l'affichage de la page html s'effectue correctement.
Si quelqu'un a une idée, je suis preneur.
D'avance merci pour votre aide.
16/06/2010, 17h03
Philou67430

Sans le contexte, voire le script entier et le(s) fichiers d'entrée, difficile de donner un diagnostic, vu que le message d'erreur parle d'un hash que l'on ne trouve pas dans la ligne incriminée.
Il est cependant possible que l'objet pointé par $table ne permet pas d'utiliser les paramètres (1, "22%") de sa méthode setColWidth (peut-être que la colonne 1 n'existe pas ?).
17/06/2010, 11h51
JUSTIN Loïc

Merci, pour ta reponse philou67430.
Est-ce que cela pourrait-etre la consequence de la suppression
de

Code:

my $nb_el=@classe-1;

car le message apparait à la fin.
Sinon voici le fonctionnement
On recupere des donnees à l'aide d'une requete sql. Et ce sont ces donnees qui sont ensuite mis en forme pour etre affichées.
Pour information
Le script fait environ 1000 lignes, partagé en deux parties.
Une partie extraction, puis une partie mise en forme.
17/06/2010, 13h00
Philou67430

Aucune idée... comme dit, sans au minimum le contexte, ou mieux, le moyen de reproduire, difficile d'en dire plus.
Pourrais-tu poster les 50 lignes entourant la ligne en erreur ?
17/06/2010, 14h30
JUSTIN Loïc

1 pièce(s) jointe(s)

Voici la partie du script demandée en piece jointe
D'avance merci pour votre aide.

Ton programme semble complexe, et le contexte que tu as posté ne suffit pas à tout comprendre.
Cependant, je note la chose suivante : dans la boucle précédent la ligne en erreur

Code:

for ($k=0;$k< $count;$k++) {

les colonnes du tableau sont parcourues en fonction de $count, mais par la suite, on ne vérifie pas la taille $count pour faire les appels
Code:

1 2 3 4 5 6 7 8 9 $table->setColWidth(1,'22%'); $table->setColWidth(2,'8%'); $table->setColWidth(3,'22%'); $table->setColWidth(4,'8%'); $table->setColWidth(5,'8%'); $table->setColWidth(6,'8%'); $table->setColWidth(7,'8%'); $table->setColWidth(8,'8%'); $table->setColWidth(9,'8%');
Si ce n'est pas un bug, c'est pour le moins imprudent me semble-t-il.

Pour analyser ton problème, il faudrait utiliser le débugger (lancer perl avec l'option -d).
Une autre méthode serait d'ajouter avant la ligne incriminée, un affichage de debug :

Code:

print "count=$count\n";

histoire de voir si la colonne 1 existe ou pas.

17/06/2010, 16h50
JUSTIN Loïc

1 pièce(s) jointe(s)

Je viens de rajouter la ligne

Code:

print "count=$count\n";

J'ai bien l'affichage du nombre d'enregistrement renvoyé sur ma page web
et ce nombre est exact, le nombre de colonne correspond bien.
J'ai mis une copie d'ecran c'est plus explicite.
18/06/2010, 16h39
JUSTIN Loïc

Une petite question subsidiaire.
Comment utilise-t-on le mode debug? Car une fois que j'ai lancé mon script,je tombe sur un prompt => DB<1>, mais je ne vois pas trop quoi faire :cry:
D'avance merci pour votre aide

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
  DB<1> h
List/search source lines:               Control script execution:
  l [ln|sub]  List source code            T           Stack trace
  - or .      List previous/current line  s [expr]    Single step [in expr]
  v [line]    View around line            n [expr]    Next, steps over subs
  f filename  View source in file         <CR/Enter>  Repeat last n or s
  /pattern/ ?patt?   Search forw/backw    r           Return from subroutine
  M           Show module versions        c [ln|sub]  Continue until position
Debugger controls:                        L           List break/watch/actions
  o [...]     Set debugger options        t [expr]    Toggle trace [trace expr]
  <[<]|{[{]|>[>] [cmd] Do pre/post-prompt b [ln|event|sub] [cnd] Set breakpoint
  ! [N|pat]   Redo a previous command     B ln|*      Delete a/all breakpoints
  H [-num]    Display last num commands   a [ln] cmd  Do cmd before line
  = [a val]   Define/list an alias        A ln|*      Delete a/all actions
  h [db_cmd]  Get help on command         w expr      Add a watch expression
  h h         Complete help page          W expr|*    Delete a/all watch exprs
  |[|]db_cmd  Send output to pager        ![!] syscmd Run cmd in a subprocess
  q or ^D     Quit                        R           Attempt a restart
Data Examination:     expr     Execute perl code, also see: s,n,t expr
  x|m expr       Evals expr in list context, dumps the result or lists methods.
  p expr         Print expression (uses script's current package).
  S [[!]pat]     List subroutine names [not] matching pattern
  V [Pk [Vars]]  List Variables in Package.  Vars can be ~pattern or !pattern.
  X [Vars]       Same as "V current_package [Vars]".  i class inheritance tree.
  y [n [Vars]]   List lexicals in higher scope <n>.  Vars same as V.
  e     Display thread id     E Display all thread ids.
For more help, type h cmd_letter, or run man perldebug for all docs.

Tu peux placer des point d'arrêts (b), faire du pas à pas (n et s) et continuer l'exécution (c), surveiller des variables (w), ...

Voir 40 message(s) de cette discussion en une page