Discussion :

[Kinethe]

Bonjour,
j'ai besoin de construire un hash de hash, pour mettre les mois et les jours, je souhaiterai avoir une structure de type :


janv fevr mars avril
1 1 1 1
2 2 2 2
3 3 3 3
4 4 4 4


.....etc

j'ai essayé avec $hash{$mois}{$jour}="$date".

en fait, je dois passer absolument par des hashs de hash, car mon programme est plus compliqué que ça mais j'ai essayé de vous le simplifier.

merci de l'aide

[Kinethe]

en fait, il me faut deux "scalaires" pour définir une clé unique.

[Choupi]

Concatene deux scalaires et ensuite tu "parseras" ta clef :

[Kinethe]

tu peux être un peu plus explicite, stp

où pourrais-je trouver de la doc sur les hash de hash ?

merci

[Choupi]

Euh oui

Je crois comprendre que tu as en fait 2 clefs (jour & mois)...

je pensais que tu pouvais faire $hash{27.juin} au lieu de {27}{juin}

Tu peux donner un exemple complet et dire a quoi correspond $date ?

[Kinethe]

en fait ce n'est pas une date, c'est une température!
donc il me faut un hash qui a pour clé primaire le mois et le jour (1 à 30 ).
dc la clé est definie par deux scalaires et possède une valeur ( la température)
je pensais que ca serait plus pratique en passant par un hash de hash.

[Choupi]

Ha ben alors mon astuce fonctionne (j'ai pas depose le concept bande de veinards ) ... Oui donc ton pb... Tu veux la temperature du 27 juin :

$jour = 27 ... $mois = "juin" tu concatenes et tu obtiens 27.juin par exemple (tu laisses un . ~ entre les deux mais ce n'est pas important)...Et donc ta clef devient "27.juin" ... $hash{$clef} = $temp;

Ca roule ca ? apres tu te fais une fonction qui cree l'ensemble des clefs dont tu as besoin. Si mon truc est idiot, tu as le droit de me le dire

[Kinethe]

je trouve que c'est un bon astuce....mais il y a un truc qui ne va pas dans mon code car $jour reste tjrs à 0....mais je vais essayer de trouver toute seule !
merci pour l'astuce!

[Jedai]

Choupi, les hash de hash ou les tableaux multidimensionnels fonctionnaient comme ça jusqu'à la version 4 de Perl (adieu les brevets sur le concept !! )
Sinon je ne vois pas pourquoi Kinethe n'utiliserait pas de vrais hash de hash, ça coûte pas plus cher !
Donc pour faire un hash de hash, c'est simple, il suffit de faire comme ça :

Code :

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

1
2
 
%monhdh = ( machin => { truc => "bidule" } );

Les différents types de parenthèses sont importants !!
Si tu n'as pas besoin de l'initialiser en entier ou que tu le fait automatiquement, c'est encore plus simple, il te suffit de faire des trucs comme ça pour chaque élément :

Code :

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

1
2
 
$monhdh{machin}{truc} = "bidule";

Normalement ça marche...

--
Jedaï

[Choupi]

Mince alors... A vrai dire je donnais mon astuce n'ayant jamais eu à faire qq chose de plus "pro" avec ca

Je peux breveter le clic de souris tu penses

[Kinethe]

j'ai fait ce que tu as dit jedai,
mais j'obtiens:

janv HASH(0x835114)
fevr HASH(0x835474)
mars HASH(0x8359cc)
avril HASH(0x835a50)

avec le code

Code :

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

1
2
3
4
5
6
7
 
$hash{$mois}{$jours}="$temperature[$boucle]";
 
foreach my $key (keys(%hash))
{ print ($key, "\t", $hash {$key}, "\n");}
 
	}

??????

[schnecke]

c normal, tu essayes de printer le sous-hash en entier, or c pas possible de printer un hash tel quel.
En plus il faut le dereferencer, essaie donc ca:

Code :

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

1
2
3
4
5
6
foreach my $key (keys(%monhdh)) 
  { 
    foreach my $k (keys(%{$monhdh{$key}})){
      print ($key, "\t", $k,"\t",$monhdh{$key}{$k}, "\n");
    } 
  }

pas tres joli mais efficace...

PS: c'est quoi
$temperature[$boucle] ?
tu veux dire $temperature{$boucle}, surement...

[Kinethe]

$temperature[$boucle] car j'ai un tableau qui contient toutes les températures.
j'ai codé, comme tu m'as dit:

Code :

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

1
2
3
4
5
6
7
8
9
 
$hash{$mois}{$jours}="$temperature[$boucle]";
 
 foreach my $key (keys(%hash)) 
{ 
 foreach my $k (keys(%{$hash{$key}})){ 
 print ($key, "\t", $k,"\t",$hash{$key}{$k}, "\n"); 
 } 
}

mais j'obtiens la même chose que précédement:

janv HASH(0x835114)
fevr HASH(0x835474)
mars HASH(0x8359cc)
avril HASH(0x835a50)

?????

[schnecke]

bizarre...
ton hash est bien du type:

Code :

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

1
2
3
4
5
6
7
8
9
%hash:
  janv => %sshash:
                 1 => 10 
                 2 => 20 
                      ...
  fev => %sshash:
                 1 => 10
                 2 => 20
  ...

non?
Sinon pour voir la structure de ton hash, tu peux utiliser le module data::dumper
et printer comme ca:
print DUMP %hash;

[Kinethe]

désolée, je ne connait pas data::dumper ....

pour ce qui est de mon hash, je le rempli avec :

Code :

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

$hash{$mois}{$jours}="$temperature[$boucle]";

voilà.....
je ne vois pas d'où vient mon pbl, mais je vais chercher cet aprèm.

a+ et merci de l'aide.

[dmitry_ovsianko]

Le hash ne peut pas contenir des hashs (à cause de l'interpolation des tableaux), mais peut bien contenir des références aux hashes. Il te faut écrire comme ça:

Code :

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

$hash {$mois} -> {$jours} = $temperature [$boucle];

Et pour visualiser:

Code :

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

1
2
3
use Data::Dumper;
 
print Dumper (\%hash);

[Jedai]

@dmitry_ovsianko > Le "->" n'est obligatoire qu'avant le premier {} (si la variable est elle même une référence), sinon, il est superflu car le fait qu'il y ait plusieurs {} indique déjà qu'il s'agit d'une référence.

--
Jedaï

[dmitry_ovsianko]

Oui, en effet... Pardon pour le spam