Discussion :

[JUSTIN Loïc]

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

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

[Philou67430]

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

Merci pour ta réponse philou67430

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

[Philou67430]

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]

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]

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