Problème avec un HASH

Version imprimable

Salut,

Deux fois aujourd'hui ?! Je suis en forme ^^

Ma question concerne les hash.
Je souhaite ajouter des données à un hash sans redéfinir celui ci entièrement.

Mais plutôt qu'un long discours voici mon code suivit du message d'erreur associé, ce message est assez clair mais je n'arrive pas trouver la bonne syntaxe.
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 my %hash = ( personne => { nom => 'toto', prenom => 'tata', age => '19', }, film => { titre => 'Virgin suicide', realisateur => 'Sofia Coppola', annee => '27-09-2000', casting => 'Kirsten Dunst, James Woods, Kathleen Turner', }, etudie => 'bioinformatique', ); push(@{\%hash->{personne}}, "viande => 'boeuf',"); my $result = $es->index( index => 'toto', type => 'tata', id => '1', data => \%hash #Cette ligne doit être comme ça pour que l'indexation fonctionne, n'accepte pas les $var );
Citation:

Message d'erreur :
Using a hash as a reference is deprecated at testUpdateViaHash.pl line 19.
Not an ARRAY reference at testUpdateViaHash.pl line 19.

J'ai changé les numéros de ligne du message pour que cela corresponde à la numérotation ici.

15/05/2012, 15h54
Gardyen

et

Code:

$hash{"personne"}{"viande"} = 'boeuf';

ne te convient pas ?

Hum au passage quelle est la différence entre (Le point important de mon problème selon moi)
Code:

1 2 3 4 $hash = {}; # et %hash =(); # ?
Sinon je souhaite rajouter des éléments dans mon hash existant. Et je souhaite pouvoir rajouter aussi bien une structure qu'un couple clef/valeur dans une structure. cf "en gros" je vous ai mis ce que j'arrivais à faire et ce que je n'arrive pas à faire.

Je ne sais pas utiliser le $hash et je ne peux, pour la partie "index", qu'utiliser la référence d'un hash sous forme \%hash

Je sais rajouter des couples/clefs valeur dans le 1er niveau mais pas dans les autres, c'est à dire que je parviens à ajouter des couples au même niveau que la structure personne et film mais pas à l'intérieur de ces structures. Je ne parviens pas non plus à créer de nouvelles structures.

En gros :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 my %hash= ( personne =>{ nom => 'toto', prenom => 'tata', age => '19', etudie => 'bioinformatique', }, film =>{ titre => 'Virgin suicide', realisateur => 'Sofia Coppola', annee => '27-09-2000', casting => 'Kirsten Dunst, James Woods, Kathleen Turner', jeNeSaisPas => 'rajouter ici' }, jeSaisRajouter : 'ici', jeNeSaisPas => { creer => 'cette structure', }, );

Code:

$hash = {}

tu crées une référence à un hash, que tu peux accéder en le déférençant

Code:

%$hash

Code:

%hash = ()

ou

Code:

%hash = {}

sont équivalents et créent un hash vide

ensuite tu as des hash imbriqués, donc tu imbriques les clés comme je l'ai indiqué plus haut, tu peux mettre en données ce que tu veux:
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 my %hash= ( personne =>{ nom => 'toto', prenom => 'tata', age => '19', etudie => 'bioinformatique', }, film =>{ titre => 'Virgin suicide', realisateur => 'Sofia Coppola', annee => '27-09-2000', casting => 'Kirsten Dunst, James Woods, Kathleen Turner', } ); # rajouter une valeur dans les hash existant $hash{"film"}{"avis"} = "jamais vu"; # rajouter un hash entier, par référence my %autre_hash = ( toto => { titi => "tata", tutu => "tete" } ); $hash{"autre_données"} = \%autre_hash;

Salut,

Tu as essayé:
$hash{niveau1}{niveau2}{niveau3} = valeur;

soit

$hash{personne}{viande}{couleur} = rouge;

Comme le précise Gardyen, tu peux aussi ajouter à ton hash une référence à une data structure (un hash ou même un tableau)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
my %structure = (
                            viande => 
                                           {couleur => rouge}
);
 
my %structure2 = (
                            viande => 
                                           [rouge,blanche]
);
 
$hash{personne} = \%structure2  #pour avoir la structure avec la liste

16/05/2012, 10h34
Quantactique

Je vous remercie de vos réponses, j'ai bien compris et j'ai été regarder le tuto sur les références. Je parviens à faire ce que je veux. \o/

Pour aider à faire la différence entre un hash (%hash) et une référence à un hash ($hash = {}), perl autorise l'opérateur de déréfencement de C noté -> :
Code:

1 2 3 4 5 6 7 8 my %hash = ( toto => "titi" ); print $hash{toto}; print $hash->{toto}; # genere une erreur my $hashref = { toto => "titi" ); print $hashref->{toto}; print ${$hashref}{toto}; # equivalent print $hashref{toto}; # genere une erreur
S'il y a plus d'un niveau d'indirection, comme ici :
Code:

1 2 3 my $bighash = { toto => { tutu => "titi" } }; print $bighash->{toto}->{tutu}; print $bighash->{toto}{tutu}; # equivalent
Les flèches au dela du premier niveau sont optionnelles.

Dans certains cas, il n'est pas possible d'utiliser l'opérateur flèche, il faut alors déréférencer "manuellement" :
Code:

1 2 3 my $hash2 = {toto => "titi", tata => "tutu"}; print join ",", @{$h}{qw(tata toto)}; print join ",", @h->{qw(tata toto)}; # genere une erreur

16/05/2012, 14h39
Quantactique

Je prend note c'est toujours utile à savoir...

En fait, il faut garder constamment à l'esprit que les sygils ($, @, %, ...) ne servent qu'à "déréférencer" un symbole (un bareword, un nom).

$ déréférence un symbole scalaire
@ déréférence un symbole tableau
% déréférence un symbole hash

Pour obtenir une valeur, il faut déréférencer autant de fois que nécessaire :
Code:

1 2 3 4 5 6 my $texte = "Bonjour"; my $scal_ref = \$texte; print $scal_ref; # affiche la référence de $texte (SCALAR(0x20091f40)) print $$scal_ref; # affiche la valeur de $texte print ${$scal_ref}; # idem
C'est pareil pour les valeurs d'un tableau :
Code:

1 2 3 my @tab_ref = ( \$texte ); print ${$tab_ref[0]}; # affiche la valeur de la référence contenue dans le premier élément du tableau print $$tab_ref[0]; # incorrect (il faut définir l'ordre de déréférencement à l'aide des accolades)
Si à présent, on souhaite récupérer deux éléments du tableau sous forme d'une liste, il faut changer de sygils (au premier niveau de déréférencement) :
Code:

1 2 my @tab = qw(Bonjour Salut Hello); print join " et ", @tab[qw(0 2)]; # affiche l'élément 0 et 2 du tableau
La syntaxe -> permet un déréférencement "à la mode C". On a donc :
my ($hash_ref, $tab_ref) = ({}, []);
${$hash_ref}{clé} équivalent à $hash_ref->{clé}
et
${$tab_ref}[index] équivalent à $tab_ref->[index]

et
my %hash_hash = ( level1 => { level2 => "level3" } );
${${hash_hash}{level1}}{level2} équivalent à ${hash_hash}{level1}{level2} équivalent à $hash_hash{level1}{level2} équivalent à $hash_hash{level1}->{level2}

Les formes simplifiées (les 2e et 3e) nous font souvent oublier que les structures, en perl, ne sont rien d'autre que des références de hashage... Se forcer à utiliser -> permet de s'en souvenir et de comprendre ce que l'on manipule.

16/05/2012, 16h12
Gardyen

les joies du déréférençage...

dans ma précédente application, je devais accéder à la propriété d'un objet référencé dans un autre objet passé en référence à ma fonction...
ça donnait ça:

Code:

$$$definition->ma_propriété()

mais à part ça on s'y perd pas trop :aie: