Discussion :

[Yux]

Salut,

Je voulais savoir s'il existait une méthode pour déclarer des variables au cours de l'exécution d'un programme. Concrètement, j'ai besoin de créer dans un programme un hachage de hachages. J'utilise donc pour ce faire les références. Le problème est que le nombre de hachages contenu dans le hachage n'est pas connu avant l'exécution, il dépend des paramètres d'un fichier de configuration. Je vois donc mal comment déclarer préalablement mes références de façon explicite...

Si quelqu'un pouvait m'éclairer là-dessus ou me proposer un mécanisme de contournement...

Merci

[2Eurocents]

Une table de hachage est, par définition, une structure dynamique.

On y ajoute ce qu'on veut, comme on veut, quand on veut. Même des références, quitte à utiliser des références anonymes (sorte d'allocation dynamique, finalement).

Il n'y a donc aucune raison pour que ça ne convienne pas à ton besoin.

[Yux]

Merci pour ta réponse, 2Eurocents. Je vais voir ça, je ne vois pas très clairement comment initialiser le hachage avec des références anonymes...

[2Eurocents]

Code :

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

%hash = ();

Crée une liste associative (hash) vide.

Code :

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

$hash{clef1} = {};

Place dans le hachage %hash, en correspondance avec clef1, une référence anonyme à un hachage vide.

Code :

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

$hash{clef1}{clef2} = "valeur";

Range valeur associée à clef2 dans le hachage anonyme situé en clef1 dans %hash.

[Yux]

Merci 2Eurocents, j'ai toutes les informations qu'il me fallait

Je passe le topic en résolu.

[Yux]

Oups, juste une dernière question : j'ai initialisé mes données de la façon que tu as indiquée, mais je ne parviens pas à y accéder ensuite. Concrètement - pour reprendre ton exemple, si je veux parcourir l'ensemble des couples clé/valeur de l'un des hachages contenu dans le hachage %hash, comment dois-je m'y prendre ?

J'ai testé ça :

Code :

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

1
2
3
4
5
6
7
foreach my $a (keys(%hash))
{
        foreach my $b (keys($hash{$a}))
        {
                print "Clé: $hash{$a} valeur : $hash{$a}{$b}\n";
        }
}

L'interpréteur me signale que l'argument de keys doit être un hachage dans la seconde boucle, pas un élément de hachage. J'avoue que je ne vois pas trop...

[2Eurocents]

Essaies comme ça :

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
#!/usr/bin/perl
 
use strict;
use warnings;
 
my %hash = ();
 
$hash{toto}={};
$hash{titi}={};
 
$hash{toto}{a}="aaa";
$hash{toto}{b}="bbb";
$hash{toto}{c}="ccc";
$hash{titi}{a}="abc";
$hash{titi}{b}="bca";
$hash{titi}{c}="cab";
 
foreach my $externe (keys (%hash)) {
  foreach my $interne (keys (%{$hash{$externe}})) {
    print "$externe/$interne -> $hash{$externe}{$interne}\n";
  }
}

[Yux]

Merci pour tout->Eurocents

Tout fonctionne au poil !