Discussion :

[LE NEINDRE]

Bonjour à tous,
J'ai un hachage qui est construit comme ça:

Code :

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

1
2
3
4
5
6
7
8
9
 
foreach my $keys (keys %tables)
      {
            my $requete="SELECT ($tables{$keys}[1],TYPE_MESSAGE) from $keys WHERE .....";
...
....
my @res=$req->fetchrow_array();
      $TypeMessage{$keys}{$res[0]}{$res[1]}++;
}

Je retourne ce hachage de la façon suivante:

Code :

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

1
2
 
return \%TypeMessage;

Comment je peux lire ce tableau retournée ???

Hier, j'ai compris (sur le forum ), comment retourné et lire un tableau de hachage, mais là, ça me semble différent et je n'obtiens aucun résultat ???

Pouvez vous me filer un petit coups de main ou une petite explication ??

Merci beaucoup.

[Jeh]

Pour connaitre la structure d'une variable, je te conseille la librairie Data:umper, livrée avec ta version de Perl normalement.
Tu l'utilises comme ceci :

Code :

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

1
2
3
4
 
use Data::Dumper;
.....
print "\n".Dumper ($ma_variable);

ça te sera bien utile !

[2Eurocents]

Bonjour,

En fait, la façon dont tu construit ton hachage importe peu ...

C'est la façon dont tu le transmets, qui compte.

Je retourne ce hachage de la façon suivante:

Code :

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

return \%TypeMessage;

En faisant ainsi, tu transmets une référence sur ton hachage, une sorte de pointeur, que tu peux mettre dans un scalaire (avec le sigill $, donc).

Son utilisation est la suivante :

Code :

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

1
2
3
4
5
6
7
my $reference = appel_qui_retourne_une_reference ();
# Manière basique de déréférencer la référence :
my %hash = %$reference;
# Acces à un élément de la référence :
my $valeur = $$reference{clef};
# Ou mieux :
$valeur = $reference->{clef};

Comment je peux lire ce tableau retournée ???

Hier, j'ai compris (sur le forum ), comment retourné et lire un tableau de hachage, mais là, ça me semble différent et je n'obtiens aucun résultat ???

Pouvez vous me filer un petit coups de main ou une petite explication ??

Ceci dit, j'aurai plutot codé comme ceci :

Code :

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

return %TypeMessage;

Ce qui, pour l'acces donne :

Code :

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

1
2
3
my %retour = appel_qui_retourne_un_hash ();
# Acces direct :
my $valeur = $retour{clef};

Voila ...

Bonne continuation.

[LE NEINDRE]

Pour connaitre la structure d'une variable, je te conseille la librairie Data:umper, livrée avec ta version de Perl normalement.
Tu l'utilises comme ceci :

Code :

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

1
2
3
4
 
use Data::Dumper;
.....
print "\n".Dumper ($ma_variable);

ça te sera bien utile !

Oui, je crois que tu m'en avais déjà parlé. Je vais l'essayer par la suite.

2Eurocents a dit:

Ceci dit, j'aurai plutot codé comme ceci : Code:
return %TypeMessage;


Ce qui, pour l'acces donne : Code:
my %retour = appel_qui_retourne_un_hash ();
# Acces direct :
my $valeur = $retour{clef};

J'ai finalement fini cette voie.

pour afficher mes valeurs j'ai fait comme ça ensuite:

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
 
$dbh=&TX2::BD::Connexion();
%ref_message=&TX2::BD::GetTypeMessages($dbh,$compte,$exception_supp,$exception_add);
&TX2::BD::Deconnexion($dbh);
foreach my $keys (keys %ref_message)
{
    foreach my $keys2 (keys %{$ref_message{$keys}})
    {
        foreach my $keys3 (keys %{$ref_message{$keys}{$keys2}})
        {
              print "1: $keys<BR>";
              print "2: $keys2<BR>";
              print "3: $keys3<BR>";
              print "4: $ref_message{$keys}{$keys2}{$keys3}<BR>";
        }
    }
}

Et ça marche.

Mais je comprends pas pourquoi on me disait de retourner tout le temps une référence de tableau. Pourquoi ça fonctionne ici sans retourner de référence :


Mis à part mon incompréhension, merci pour l'aide

[2Eurocents]

Mais je comprends pas pourquoi on me disait de retourner tout le temps une référence de tableau. Pourquoi ça fonctionne ici sans retourner de référence :

Mis à part mon incompréhension, merci pour l'aide

Je ne peux pas me mettre à la place de ceux qui t'ont dit ça, et je ne peux donc te dire pourquoi ils l'ont affirmé.

Peut être avaient-ils peur que la liste n'existe plus hors du contexte de la fonction, ou un truc comme ça ...

Cependant, je peux t'affirmer qu'il n'y a aucun risque à retourner une liste ...

Le seul danger, c'est lorsque l'on veut en retourner plusieurs.

En effet, return (@liste1, @liste2); retournera une seule grosse liste avec tous les éléments des deux listes. C'est une conséquence du principe d'applatissement des listes.

Si ce n'est pas le comportement souhaité, mais qu'on veut bien récupérer deux listes, alors il faudra passer par les références avec return (\@liste1, \@liste2);.

C'est, finalement, le même principe que pour passer des listes en paramètre à des fonctions ...


Bon courage.

[Jedai]

Mais je comprends pas pourquoi on me disait de retourner tout le temps une référence de tableau. Pourquoi ça fonctionne ici sans retourner de référence

Le problème c'est de garder les données bien séparées : dès lors que tu passes ou que tu retournes plusieurs tableaux ou hashs, tu es obligé d'en passer par les références pour éviter de mélanger les données... C'est pourquoi, beaucoup de gens utilisent exclusivement les références, même pour ne renvoyer qu'une seule structure de donnée parce qu'ils ne maîtrisent pas vraiment le langage et que cela leur évite des erreurs.

Mais si tu comprends bien le problème, c'est bien plus confortable de renvoyer directement le tableau/hash s'il n'y en a qu'un.

--
Jedaï

[LE NEINDRE]

Ok, j'ai compris, j'avais lu cette histoire d'applatissement dans la faq.

Je pense que j'ai confondu. Lorsqu'on m'a répondu ça, je devais vouloir retourner plusierus tableaux.

Merci pour l'explication

Et vive perl quand même

[2Eurocents]

Un petit [Résolu], alors, pour faire monter nos stats

[LE NEINDRE]

Désolé, j'y ai pensé, mais avec la fermeture du forum, j'ai oublié.
VOilà qui est réparé