Discussion :

[sone47]

Bonjour,

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

Voici la strucutre:

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

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

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,

[djibril]

Essaye de lire ça, j'espère que ça t'aidera.

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

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

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 :

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

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,

[sone47]

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

Code :

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

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 :

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

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

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

[sone47]

Resolu:

Code :

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

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