tableau de tables de hash référence perl

bonjour,

voici ma fonction retournant un tableau de tables de hashages:
sub fonc2{
my @a=();
my %c={"a"=>"1","b"=>"2","c"=>"3"};
my %d={"d"=>"4","e"=>"5","f"=>"6"};
my %e={"g"=>"7","h"=>"8","i"=>"9","j"=>"10"};
$a[0]=\%c;
$a[1]=\%d;
$a[2]=\%e;

return @a;
}

lorsque je veux récupérer @a je fais:
@b=fonc2();
je veux récupérer mes tables de hash je ne sais pas comment faire j'ai tout essayé:
%h=%{$b[0]} ne marche pas
%h=%{%{$b[0]}} non plus
%h=%{${$b[0]}} non plus
%h=%{%{@b[0]}} non plus

j'ai meme essayé d'enlever les références de ma fonction:

$a[0]=%c;
$a[1]=%d;
$a[2]=%e;
dans la table b il y a des symboles bizarres :1/81/81/8
les tables de hashage sont vides
comment faire
ca fait 2 jours que je cherche
merci par avance

C'est nromal que tu n'es rien, tes varirable %hash... elles sont détruite à la fin de ta fonction. N'utilise pas de référence pour ca. Mets directement

Code:

---

1 2	%{$a[0]}=%hash1;....

---

Pourrais-tu utiliser les balises codes ? Merci.

Si ce n'est déjà fait, tu devrais utiliser les pragma strict et warnings dans ton script.
Erreur renvoyée par le pragma strict

Citation:

---

Reference found where even-sized list expected at test.pl line 10.

---

Tu dois utiliser des parenthèses et non des crochets quand tu initialises tes hash :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

#!/usr/bin/perl use strict; use warnings; sub fonc2 { my @a = (); my %c = ( a => 1, b => 2, c => 3 ); my %d = ( d => 4, e => 5, f => 6 ); my %e = ( g => 7, h => 8, i => 9, j => 10 ); $a[0] = \%c; $a[1] = \%d; $a[2] = \%e; return @a; } my @a = &fonc2; my %h1 = %{$a[0]};

---

nb : les doubles quotes autour de tes clés et valeurs semblent inutiles sauf si tu veux que tes valeurs numériques soient considérées comme des chaînes de caractères.

merci,
j'ai deja essayé avec ce code et mes tables de hashage s'affichent vides :(:cry::evilred:

Citation:

---

Envoyé par danathane

C'est nromal que tu n'es rien, tes varirable %hash... elles sont détruite à la fin de ta fonction. N'utilise pas de référence pour ca. Mets directement

Code:

---

1 2	%{$a[0]}=%hash1;....

---

---

ah oki il faut le faire à l'envers

sub fonc2{
my @a=();
my %c=("a"=>"1","b"=>"2","c"=>"3");
my %d=("d"=>"4","e"=>"5","f"=>"6");
my %e=("g"=>"7","h"=>"8","i"=>"9","j"=>"10");
%{$a[0]}=%c;
%{$a[1]}=%d;
%{$a[2]}=%e;

return @a;
}

merci à tous les 2

Le script plus haut fonctionne ... Quels messages d'erreur as-tu en utilisant strict et warnings? Comment passes-tu tes valeurs aux hash?

Tu dois utiliser

Code:

---

1 2 3

my @a = &fonc2;   my %h1 = %{$a[0]};

---

Comme je l'ai mis dans mon premier message.

Citation:

---

Envoyé par Jasmine80

Le script plus haut fonctionne ... Quels messages d'erreur as-tu en utilisant strict et warnings? Comment passes-tu tes valeurs aux hash?

---

je n'avais pas d'erreur mais une ligne vide quand jessayais d'afficher les éléments du hashtable

Citation:

---

Envoyé par Jasmine80

Tu dois utiliser

Code:

---

1 2 3

my @a = &fonc2;   my %h1 = %{$a[0]};

---

Comme je l'ai mis dans mon premier message.

---

merci :) ca marche comme ca
ca change quoi de mettre le & devant l'appel de fonction?

Citation:

---

ca change quoi de mettre le & devant l'appel de fonction?

---

Cela précise à Perl que tu fais appel à un sous-programme. C'est optionnel et je pense plutôt que l'erreur vient de la façon dont tu récupères ton tableau via $a[0].

Bonjour,

Je suis tombé sur vos réponses par l'outil de recherche.

J'avais exactement le même pb lié au table de table de hashage.

Votre code fonctionne pour le remplissement et le dépilement du tableau.

Par contre, j'aimerais utiliser du code plus dynamique :

- pour remplir le tableau :

Utiliser push. exemple :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

while (@data = $sth->fetchrow_array()) { $myNodes{PK_id}=$data[0]; $myNodes{FK_child_id}=$data[1]; $myNodes{parentId}=$data[2]; $myNodes{rating}=$data[3]; $myNodes{privacy}=$data[4]; $myNodes{title}=$data[5]; $myNodes{skinId}=$data[6]; $myNodes{imageId}=$data[7]; $myNodes{FK_id_item}=$data[8]; push(@arrayOfNodes, %myNodes); }

---

au lieu de

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

while (@data = $sth->fetchrow_array()) { $myNodes{PK_id}=$data[0]; $myNodes{FK_child_id}=$data[1]; $myNodes{parentId}=$data[2]; $myNodes{rating}=$data[3]; $myNodes{privacy}=$data[4]; $myNodes{title}=$data[5]; $myNodes{skinId}=$data[6]; $myNodes{imageId}=$data[7]; $myNodes{FK_id_item}=$data[8]; %{$arrayOfNodes[$cpt]}=%myNodes; $cpt=$cpt+1; }

---

- pour dépiler le tableau

Utiliser foreach :

Code:

---

1 2 3 4 5 6 7 8

@ResultArrayOfNodes=NPVR_checkNodeInDB($hash_request->{'nodeid'}); foreach my $v (@ResultArrayOfNodes) { my %h=$v; foreach my $key1 (keys(%h)) { print "KEY:$key1 VAL:$h{$key1} \n"; } }

---

Malheureusement ce code ne fonctionne pas... Avez vous une solution à m'apporter ?

Merci d'avance,

Eloi

Tu ajoute ceci au début de ton script (de tous tes scripts, même) :

Code:

---

1 2	use strict; use warnings;

---

Grâce à cela, tu verras que la ligne suivante :

Code:

---

my %h=$v;

---

ne fait absolument pas ce que tu t'imagines qu'elle fait.

Explications dans la FAQ sur les références.