Discussion :

[Crosser02]

Bonjour,
J'utilise le module Convert::Binary::C pour pouvoir travailler avec le C.
La méthode typedef renvoie un hash de hash et je ne sais pas comment le parcourir.

Voici le code :

Code :

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

1
2
3
4
5
6
7
8
#!/usr/bin/perl -w
use strict;
use Convert::Binary::C;
 
my $d = new Convert::Binary::C ByteOrder => 'LittleEndian',
                                             Alignment => 1;
 
my %h = $d->typedef;

Pour parcourir un hash :

Code :

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

1
2
3
foreach my $k (keys(%h)){
          print "Clef=$k Valeur=$h{$k}\n";
}

Comment faire pour lire les valeurs du hash de hash réellement présent dans %h?

Merci

[djibril]

Code :

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

1
2
3
4
5
6
foreach my $k (keys %h ) {
          print "Clef=$k : \n";
          foreach my $k2 (keys %{$h{$k}} ) {
            print "suite => $h{$k}->{$k2} \n";
          }  
}

[Crosser02]

Bonjour,
Merci djibril pour cette réponse.
Par contre :

Code :

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

1
2
3
4
5
foreach my $k (keys %h ) {
          foreach my $k2 (keys %{$h{$k}} ) {
                      print "Clef=$k2 : \n"; Valeur:  $h{$k}->{$k2} \n";
          }  
}

Si on fait un print de $k, on récupère quelque chose comme cela : HASH(0x...).
En faisant un print de $k2, on obtient la clé

Concernant les hashs, les clés sont uniques. Mais une clef peut-elle contenir plusieurs valeurs? et comment récupérer toutes les valeurs d'une clef (si c'est possible of course)?

Merci

[djibril]

Dans un hash, toutes les clés sont uniques. Si tu veux qu'une clé contienne plusieurs valeurs, la valeur de la clé doit être une référence à un tableau, c'est comme un pointeur vers un tableau. La valeur peut être également une référence d'un hash (ce le cas des hash de hash).

Lis la FAQ, j'en parle dans la section référence.

Ex :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
my %Personne = (
  'Crosser02' => {
    'Fan' => 'Perl',
    'Age' => '25 ans',
    'freres' => ['jean', 'Paul', 'marc'], 
  },
);
 
print "Les freres de Crosser02\n";
print @{ $Personne->{'freres'} },"\n";
print "Frere 1 de Crosser02\n";
print $Personne->{'freres'}->[0],"\n";

[Crosser02]

Merci pour la réponse.
Par contre, j'ai lancé ton programme et le méchant Terminal me dit :

Code :

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

Global symbol "$Personne" requires explicit package name at ...

Je n'ai pas encore trouvé l'origine du problème.

Je suis en train de regarder ton lien.

Code :

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

1
2
3
4
5
foreach my $k (keys %h ) {
          foreach my $k2 (keys %{$h{$k}} ) {
                      print "Clef=$k2 : \n"; Valeur:  $h{$k}->{$k2} \n";
          }  
}

Mon but étant d'essayer de garder la même configuration du code mais de récupérer l'ensemble des valeurs de $k2.
Si tu as une idée pour le problème avec le code? N'hésite pas!

Merci

[djibril]

Normal, c'est ma boulette

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
my %Personne = (
  'Crosser02' => {
    'Fan' => 'Perl',
    'Age' => '25 ans',
    'freres' => ['jean', 'Paul', 'marc'], 
  },
);
 
print "Les freres de Crosser02\n";
print @{ $Personne{Crosser02}->{'freres'} },"\n";
print "Frere 1 de Crosser02\n";
print $Personne{Crosser02}->{'freres'}->[0],"\n";

[Crosser02]

Merci.
Cela fonctionne à merveille!
Merci