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

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

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

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

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?

[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