Discussion :

[sbtrinity]

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

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

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

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

[Jasmine80]

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

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 :

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
#!/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.

[sbtrinity]

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

[sbtrinity]

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 :

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

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

[Jasmine80]

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

[Jasmine80]

Tu dois utiliser

Code :

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

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

Comme je l'ai mis dans mon premier message.

[sbtrinity]

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

[sbtrinity]

Tu dois utiliser

Code :

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

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?

[Jasmine80]

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].

[eloi29]

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 :

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

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 :

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

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 :

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

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

[Schmorgluck]

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

Code :

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

1
2
use strict;
use warnings;

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

Code :

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

my %h=$v;

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

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