Discussion :

[aikinhdo]

Bonjour,

J'ai besoin de votre aide concernant le remplissage de hash de hash tableau multidimension.

Je récupere les informations suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
toto
toto07 TOTO_07 0
toto08 TOTO_08 0
toto05 TOTO_05 1
toto06 TOTO_06 1
 
truc
truc01 TRUC_01 9
truc02 TRUC_02 9

Je souhaite avoir quelques choses comme:

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
 
 
$refhash =  {
                   toto => {
                                 0 => [
                                          [ toto07, TOTO_07 ] ,
                                          [ toto08, TOTO_08 ]
                                        ] ,
                                 1 => [
                                          [ toto05, TOTO_05 ] ,
                                          [ toto06, TOTO_06 ]
                                        ] 
                                 }
                    truc => {
                               9 => [
                                          [ truc05, TRUC_05 ] ,
                                          [ truc06, TRUC_06 ]
                                        ] 
                                 }
                    } ;

Dans mon script perl :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
 
foreach (@lines)
{
     # Je sparse les entrées 
     # nom sera egal à truc ou toto, taille sera egal à 0,1,9
     # name sera egal à truc_xx et rename TRUC_XX 
 
push @{$refhash->{$nom}->{$taille}} , [$name,$rename] ;
 
}
 
print Dumper($refhash) ;

Ce qui donne les codes suivants :

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
 
$VAR1 = {
          'toto' => {
                         '0' => [
                                  [
                                    'toto07',
                                    'TOTO_07'
                                  ],
                                  [
                                    'toto08',
                                    'TOTO_08'
                                  ]
                                ],
                         '1' => [
                                         [
                                           'toto05',
                                           'TOTO_05'
                                         ],
                                         [
                                           'toto06',
                                           'TOTO_06'
                                         ]
                                       ],
                       },
          'truc' => {
                        '9' => [
                                       [
                                         'truc01',
                                         'TOTO_01'
                                       ],
                                       [
                                         'truc02',
                                         'TOTO_02'
                                       ]
                                     ]
                      }
        };

Je n'ai pas l'impression que ce que je récupere soit comme je voulais.
Et puis je n'arrive pas à descendre en profondeur dans les tableaux à deux dimensions.

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
 
foreach my $j ( keys %{$refhash} )
{
        foreach my $k ( keys %{$refhash->{$j}} )
        {
                print "$j $k \n";
                if ( ref($refhash->{$j}->{$k}) eq "ARRAY" )
                {
                        print "Tableau\n";
                        foreach my $v (@{$refhash->{$j}->{$k}})
                        {
                                print "$v\n";
                        }
                }
 
        }
}

Merci pour votre aide

[pospos]

ce que tu recupere a l'air d'etre bon. Que lui reproche tu ?

[aikinhdo]

bonjour

tu as raison cela à l'air bon.. par contre, sais tu comment récupérer des valeurs toto et TOTO ?

Je n'arrive pas à atteindre les valeurs des tableaux de mes hash

Code :

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

1
2
3
4
 
 
truc => 0 [ 'toto' 'TOTO' ]
truc => 1 ['toto' 'TOTO' ]

Merci pour votre aide

[Arioch]

Je ne veux pas dire de bêtise mais est-ce que

Code :

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

push @{$refhash->{$nom}->{$taille}} , [$name,$rename] ;

ne s'écrirait pas plutôt

Code :

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

push @{$refhash->{$nom}{$taille}} , [$name,$rename] ;

?

[pospos]

Arioch, c'est identique en fait: on peut omettre la fleche pour simplifier l'ecriture de structures à plusieurs dimenssions. Mais franchement autant ajoute rla fleche pour mieux comprendre ce qui se passe.

aikinhdo, en fait dans ton parcours $v est encore une reference de ARRAY, avec les deux elements: my ($name1, $name2) = @$v;

[aikinhdo]

Merci Pospos,

Est ce que j'arrive pas à acceder aux champs du tableau ?

En faisant : Je pensais pouvoir récuperer la valeur "toto07", mais ce n'est pas le cas.

Code :

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

1
2
3
 
 
print $refdisk->{toto}->{0}->[0] ;