[perl]Problème tableau indexé

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

Code:

---

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:

---

1 2	return \%TypeMessage;

---

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

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

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

Merci beaucoup.

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

Code:

---

1 2 3 4

use Data::Dumper; ..... print "\n".Dumper ($ma_variable);

---

ça te sera bien utile ! :wink:

Bonjour,

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

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

Citation:

---

Envoyé par LE NEINDRE

Je retourne ce hachage de la façon suivante:

Code:

---

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:

---

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};

---

Citation:

---

Envoyé par LE NEINDRE

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

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

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

---

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

Code:

---

return %TypeMessage;

---

Ce qui, pour l'acces donne :

Code:

---

1 2 3

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

---

Voila ...

Bonne continuation.

Citation:

---

Envoyé par Jeh

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

Code:

---

1 2 3 4

use Data::Dumper; ..... print "\n".Dumper ($ma_variable);

---

ça te sera bien utile ! :wink:

---

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

2Eurocents a dit:

Citation:

---

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:

---

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 :D

Citation:

---

Envoyé par LE NEINDRE

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 :D

---

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.

Citation:

---

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. :D

--
Jedaï

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 :wink:

Et vive perl quand même :D :D

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

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