Message dans le fichier log

**JUSTIN Loïc** · 10/06/2010, 15h06

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 :

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
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/^ /&nbsp;/;
     $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 :

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

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

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

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

**Philou67430** · 10/06/2010, 16h22

Dans cette boucle

Code :

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

1
2
   for ( my $k=0; $k < $nb_el  ;$k++ ) {
     $rejet[$k] =~s/^ /&nbsp;/;

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 :

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
my $iterator = each_array(@classe, @selection, @rejet);
while ( my ($classe, $selection, $rejet) = $iterator->() )   {
  $rejet =~s/^ /&nbsp;/;
  $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;
 
}

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

Merci pour ta réponse philou67430

Je teste cela de suite et je te tiens au courant.

**Philou67430** · 10/06/2010, 16h38

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

Code :

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

   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é.

**JUSTIN Loïc** · 11/06/2010, 10h00

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 :

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

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 :

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
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/^ /&nbsp;/;
    $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

**Philou67430** · 11/06/2010, 10h19

Peux-tu préciser quelle ligne (et pas numéro de ligne) provoque l'erreur ?

**JUSTIN Loïc** · 11/06/2010, 10h44

Voici les deux lignes qui génèrent des erreurs

Code :

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

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

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.

**Philou67430** · 11/06/2010, 11h03

Pourrais-tu donner le résultat de l'affichage suivant :

Code :

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

1
2
3
4
give_class_table {
  warn "give_class_table:".(join ", ", map "[$_]", @_)."\n";
  ...
}

(pour le cas faisant l'erreur).

**JUSTIN Loïc** · 11/06/2010, 11h12

Voici les traces demandées

give_class_table:[/etc/hosts ; ], [], []
give_class_table:[ALL_LOCAL_DRIVES ; ], [], []
give_class_table:[/data ; /etc ; ], [], []

**Philou67430** · 11/06/2010, 12h00

En fait, tes tableaux @selection et @rejet seront vides.

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

Code :

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

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 :

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

1
2
while ( my ($classe, $selection, $rejet) = $iterator->() )   {
  $_ = "" foreach grep !defined, $classe, $selection, $rejet;

**JUSTIN Loïc** · 11/06/2010, 14h25

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.

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

**JUSTIN Loïc** · 16/06/2010, 12h02

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

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

Voici la ligne 864

Code :

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

$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.

**Philou67430** · 16/06/2010, 17h03

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 ?).

**JUSTIN Loïc** · 17/06/2010, 11h51

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

Code :

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

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.

**Philou67430** · 17/06/2010, 13h00

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 ?

**JUSTIN Loïc** · 17/06/2010, 14h30

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

**Philou67430** · 17/06/2010, 16h08

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 :

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

 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 :

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

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 :

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

print "count=$count\n";

histoire de voir si la colonne 1 existe ou pas.

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

Je viens de rajouter la ligne

Code :

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

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.

**JUSTIN Loïc** · 18/06/2010, 16h39

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

D'avance merci pour votre aide

**Philou67430** · 19/06/2010, 14h39

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
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), ...

Message dans le fichier log

Langage Perl

Discussions similaires

Partager

Partager