Problème déclaration de variable dans un package

Version imprimable

Bonjour,

J'ai une fonction qui appartien à un package:
J'ai une erreur de déclaration de variable au niveau de $keys.
Voici ma fonction:

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
 
package TX2::BD;
 
...
.....
........
 
sub GetTotalMessages($_)
{
    my $address=$_[0];
    my $month=$_[1];
    my @messages;
    my $date1.='01';
    my $date2.='31';
    my %trrcvdoc=(ADDRESS=>'ADDRESSE_EMETTEUR',DATE=>'DATE_RECEPTION_DOC');
    my %trsnddoc=(ADDRESS=>'ADDRESSE_RECEPTEUR',DATE=>'DATE_ENVOI_DOC');
    my %tables=(trrcvdoc=>\%trrcvdoc,trsnddoc=>\%trsnddoc);
 
    foreach my $keys (keys %tables)
    {
          my $requete="SELECT COUNT(*) FROM $keys ";
          if($address ne '*')
          {
                $requete.="WHERE $tables{$keys{'ADDRESS'}}=\'$address\' ";
                if($month ne '*')
                {
 
                  $requete.="AND $tables{$keys{'DATE'}}>=\'$date2\' AND $tables{$keys{'DATE'}}<=\'$date2\'";
                }
          }
          else
          {
              if($month ne '*')
              {
                  $requete.="WHERE $tables{$keys{'DATE'}}>=\'$date2\' AND $tables{$keys{'DATE'}}<=\'$date2\'";
              }  
          }
 
          my $dbi=&TX2::Tools::Connexion();
                my $req=$dbi->prepare($requete);
                $req->execute();
                my @res=$req->fetchrow_array();
                push(@messages,$res[0]);
          &TX2::Tools::Deconnexion($dbi);
    }
 
 
    return \@messages;
}

Et voici une partie de l'erreur retournée:

Code:

1
2
3
4
5
 
Tue Aug 23 14:00:40 2005] [error] [client 127.0.0.1] Global symbol "%keys" requires explicit package name at c:/Perl/lib/TX2/BD.pm line 329.\n
[Tue Aug 23 14:00:40 2005] [error] [client 127.0.0.1] Global symbol "%keys" requires explicit package name at c:/Perl/lib/TX2/BD.pm line 333.\n
[Tue Aug 23 14:00:40 2005] [error] [client 127.0.0.1] Global symbol "%keys" requires explicit package name at c:/Perl/lib/TX2/BD.pm line 333.\n
[Tue Aug 23 14:00:40 2005] [error] [client 127.0.0.1] Global symbol "%keys" requires explicit package name at c:/Perl/lib/TX2/BD.pm line 340.\n

Pouvez vous me dire ce qu'il ne va pas s'il vous plait ????

23/08/2005, 15h36
Jedai

"keys %hash" renvoie, comme son nom l'indique, la liste des clés de ton hash, donc des chaînes de caractères, alors tu comprends que cette ligne pose de petits problème à Perl :

Citation:

$requete.="WHERE $tables{$keys{'ADDRESS'}}=\'$address\' ";

--
Jedaï

J'ai contourné le problème (ce que je faisais avait pas de sens je crois en faisant ceci):

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
 
sub CountTotalMessages($_)
{
    my $dbi=$_[0];
    my $address=$_[1];
    my $month=$_[2];
    my @messages;
    my $date1.='01';
    my $date2.='31';
    my %tables=('trrcvdoc'=>['ADDRESSE_EMETTEUR','DATE_RECEPTION_DOC'],'trsnddoc'=>['ADDRESSE_DESTINATAIRE','DATE_ENVOI_DOC']);
    my $keys;
    foreach $keys (keys %tables)
    {
          my $requete="SELECT COUNT(*) FROM $keys ";
          if($address ne '*')
          {
                $requete.="WHERE $tables{$keys}[0]=\'$address\' ";
                if($month ne '*')
                {
 
                  $requete.="AND $tables{$keys}[1]>=\'$date2\' AND $tables{$keys}[1]<=\'$date2\'";
                }
          }
          else
          {
              if($month ne '*')
              {
                  $requete.="WHERE $tables{$keys}[1]>=\'$date2\' AND $tables{$keys}[1]<=\'$date2\'";
              }  
          }
 
         print "$requete\n";
                my $req=$dbi->prepare($requete);
                $req->execute();
                my @res=$req->fetchrow_array();
                push(@messages,$res[0]);
 
    }
 
 
    return \@messages;
}

Je crois que c'est mieux.

PS: mais ceci dit ce que je voulais faire avec la ligne:

Citation:

$requete.="WHERE $tables{$keys{'ADDRESS'}}=\'$address\' ";

était la chose suivante:
%tables a pour clés 'trrcvdoc' et 'trsnddoc' qui pointent respectivement vers les hash %trrcvdoc et %trsnddoc

donc quand je faisais

Code:

1
2
3
4
5
 
foreach my $keys (keys %tables)
{
$requete.="WHERE $tables{$keys{'ADDRESS'}}=\'$address\' ";
}

je voulais obtenir

Code:

1
2
3
4
 
$requete.="WHERE $table{trrcvdoc{'ADDRESS'}}=\'$address'\";
et
$requete.="WHERE $table{trsnddoc{'ADDRESS'}}=\'$address'\";

Mais je crois que, comme tu me l'as expliqué, c'ets ps bon car $keys est une chaine de caractère et donc pas compris comme un hash ??
C'est bien ça ???

et si j'avais fais:

Code:

1
2
3
4
5
 
foreach my $keys (keys %tables)
{
$requete.="WHERE $tables{\$$keys{'ADDRESS'}}=\'$address\' ";
}

ça n'aurait pas pu marcher ? est ce que je suis pas bien dans ma tête ?? 8O 8O

23/08/2005, 18h26
Jedai
Tu n'es pas bien dans ta tête ! :lol:
Ce que tu veux, c'est la valeur de clé ADRESS dans le hash qui est la valeur de clé $keys dans %tables.
Soit tout simplement :
Code:

1 2 $tables{$keys}{ADDRESS}
En fait on devrait écrire :
Code:

1 2 $tables{$keys}->{ADDRESS}
Parce que $tables{$keys} est une référence à un hash, mais Perl traduit tout seul car il n'y a pas ambiguité. :D

--
Jedaï