lecture hash de hash

Version imprimable

Bonjour,

J'ai un probleme de remplissage et de lecture d'une structure de données complexe.

Voici la strucutre:

Code:

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
 
intrpt = (
              0 => {name_vector = "XXXX",
                       0 => { name_intrpt = "xxxx",
                                 classe        = "yyyy"},
                       1 => { name_intrpt = "xxxx",
                                 classe        = "yyyy"},
                       2 => { name_intrpt = "xxxx",
                                 classe        = "yyyy"},
                       ...
                       x => { name_intrpt = "xxxx",
                                 classe        = "yyyy"}
                   },
              1 => {name_vector = "XXXX",
                       0 => { name_intrpt = "xxxx",
                                 classe        = "yyyy"},
                       1 => { name_intrpt = "xxxx",
                                 classe        = "yyyy"},
                       2 => { name_intrpt = "xxxx",
                                 classe        = "yyyy"},
                       ...
                       x => { name_intrpt = "xxxx",
                                 classe        = "yyyy"}
                   },
          ...
              X => {name_vector = "XXXX",
                       0 => { name_intrpt = "xxxx",
                                 classe        = "yyyy"},
                       1 => { name_intrpt = "xxxx",
                                 classe        = "yyyy"},
                       2 => { name_intrpt = "xxxx",
                                 classe        = "yyyy"},
                       ...
                       x => { name_intrpt = "xxxx",
                                 classe        = "yyyy"}
                   }
)

Le nombre de vector est variable et non connu lors de la declaration,
idem pour le nombre d'intrpt par vector.
Serait il possible d'avoir une methode pour ajouter un element et le lire (j'ai essayé toute sorte de methode mais ca releve plus de la bricole qu'autre chose).

Pour l'instant (qui ne marche pas):

Code:

1
2
3
4
5
6
7
8
9
 
$struct{"intrpt"}{$int_vector_id} = {name_vector => $nom_vecteur};
$struct{"intrpt"}{$int_vector_id}{$int_intrpt_id} = {name_intrpt => $nom_intrpt, class_intrpt => $nom_classe};
 
 
#pour lire:
$int_vector0 = $struct->{"intrpt"}{0}->{name_vector}; # fonctionne
$int_bit0      = $struct->{"intrpt"}{0}->{0}->{name_intrpt}; # est vide 
$int_bit0      = $struct->{"intrpt"}{0}->{0}->{class_intrpt}; # est vide

Je pense que je me perd dans mes hashs de hash,
Si quelqu'un pouvait me donner une methode pour remplir mon hash puis une pour y acceder cela serait vraiment sympa car je ne vois pas ou faire mes modifs...

Merci d'avance,

20/07/2009, 19h29
djibril

Essaye de lire ça, j'espère que ça t'aidera.
22/07/2009, 13h51
sone47
Bonjour,

Merci, mais je l'avais deja lu auparavant.

Est ce que cela peut venir du fait que mon hash n'est pas rempli totalement en une fois ?
Car j'ai vu sur le net ceci apr exemple:
Code:

1 2 $struct{"intrpt"}{$int_vector_id}{$int_intrpt_id} = {name_intrpt => $nom_intrpt, class_intrpt => $nom_classe};
Mais j'ai cru comprendre qu'on pouvait egalement faire:
Code:

1 2 3 $struct{"intrpt"}{$int_vector_id}{$int_intrpt_id}{name_intrpt}=$nom_intrpt; $struct{"intrpt"}{$int_vector_id}{$int_intrpt_id}{class_intrpt}=$nom_classe;
S'il y a une diference je ne comprend pas ou elle se situe...

Merci d'avance,

J'ai finalement réussi, je met le code ici au cas ou:

Code:

1
2
3
4
 
#Ecriture:
$struct{"intrpt"}{$int_vector_id} = {name_vector => $int_vector};
$struct{"intrpt"}{$int_vector_id}->{$int_intrpt_id} = {name_intrpt => $event, class_intrpt => $class};

Par contre lorsque je veux dupliquer cette partie du hash (pour ne pas effectuer mes traitements sur le hash complet) je recois differents message d'erreurs (en rouge les lignes ou ma hash est remplie):

Code:

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
38
39
my %struct_intrpt; 
my $vector = 0;
my $intrpt = 0;
my $event  = 0;
my $class = 0;

## on remplie la nouvelle hash ##
my @s = sort keys (%{$product->{"intrpt"}}); # hash d'origine
while (scalar(@s)>0)
{
  my $vector = shift (@s);
  $temp = $product->{"intrpt"}->{$vector}->{name_vector}; # on recupere la valeur dans hash d'origine
  $struct_intrpt{$vector} = {name_vector => $temp};     # on la met dans nouvelle hash
  my @t = sort keys (%{$product->{"intrpt"}->{$vector}});
  while(scalar (@t)>0)
  {
    $intrpt = shift (@t);
    if ($intrpt ne "name_vector"){
      $event  = $product->{"intrpt"}->{$vector}->{$intrpt}{name_intrpt}; #
      $class = $product->{"intrpt"}->{$vector}->{$intrpt}{class_intrpt}; # on recupere les valeurs dans hash d'origine
      $struct_intrpt{$vector}->{$intrpt} = {name_intrpt => $event, class_intrpt => $class}; # on les mets dans nouvelle hash
    }
  }    
}   

## on parcours la nouvelle hash ##
$i=0;
my @tab_s = sort keys (%struct_intrpt); # je sors les clés de ma hash
print "- hash vector [$i]: ";
print "{@tab_s}\n";
while(exists ${struct_intrpt}{$i}) # tant qu'une hash dans la premiere hash existe
{
  $j = 0;
  my @tab_t = sort keys (%struct_intrpt->{$i}); # probleme 
  print "\t- hash intrpt [$i]: ";
  print "{@tab_t}\n";
  $i=$i+1;
}

L'erreur:
Using a hash as a reference is deprecated at...
et l'explication CPAN:

Code:

1
2
 
(L'utilisation d'un hachage en tant que référence est dépréciée) (D deprecated) Vous essayez d'utiliser un hachage en tant que référence, comme dans %truc->{"machin"} or %$ref->{"coucou"}. Les versions de perl antérieures ou égales à 5.6.1 autorisaient cette syntaxe, mais elles n'auraient pas dû. C'est maintenant une syntaxe dépréciée et elle disparaîtra d'une prochaine version.

Le probleme c'est que je ne trouve pas la nouvelle syntaxe...
Si quelqu'un a une idee sur le parcours de ma hash de hash.

Merci d'avance

Resolu:

Code:

1
2
 
my @tab_t = sort keys (%{struct_intrpt{$i}});