Discussion :

[black bulldog]

Bonjour,

Je n'arrive pas à remplir une table de hash au moyen d'une fonction et de références (sans utiliser d'arguments en entrée de ma fonction). Quelqu'un saurait-il me dire ce qui ne vas pas dans mon script ?
Merci;

#! /user/bin/perl
use strict;
use warnings;
use diagnostics;

# déclaration initiale
my $Valeur="";
my $ref=\$Valeur;

my %H=(
'lulu'=>$Valeur,);

# appel des fonctions
remplir();
lire();

# déclaration des fonctions
sub remplir {
${$ref} = "AAAA";
}

sub lire {
foreach my $data (%H) {
print ("$data\n");
}
}

[Lolo78]

Bonsoir,

Prière d'utiliser les balises de code (le pictogramme '#' au-dessus de la fenêtre d'édition) pour tes bouts de code, cela permettra de respecter le formattage et l'indentation.

Pas 100% sûr de ce que tu veux faire, mais ton problème n'a sans doute pas grand chose à voir avec les fonctions. Quand tu écris:

Code :

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

1
2
3
4
 
my %H=(
                'lulu'=>$Valeur,
             );

tu donnes à la clef 'lulu' du hash le contenu de la variable $Valeur au moment de l'assignation, à savoir "". Changer ultérieurement le contenu de $Valeur, que ce soit directement par une assignation ou autrement (par le truchement d'une référence) ne change plus rien. $H{lulu} contient maintenant "", et le programme n'a aucune raison de se souvenir qu'à l'époque où cet élément du hash a été alimenté, il l'a été avec le contenu de $Valeur.

Essaie peut-être cette version simplifiée de ton programme pour t'en convaincre:

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
#! /user/bin/perl
use strict;
use warnings;
use diagnostics;
 
# déclaration initiale
my $Valeur=1;
my $ref=\$Valeur;
 
my %H=('lulu'=>$Valeur,);
 
$Valeur = 2;
print $H{lulu}; # imprime 1
 
${$ref} = 3;
print $H{lulu}; # imprime 1

[Lolo78]

J'ajoute à ce que j'ai dit ci-dessus que les choses seraient différentes si tu avais écrit:

Code :

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

my %H=('lulu' => \$Valeur,);

Car dans ce cas, le hachage contiendrait, pour la clef 'lulu', une référence vers la variable $Valeur, c'est à dire en gros l'adresse mémoire de cette variable. Dans ce cas, modifier la valeur de $Valeur modifiera aussi la valeur pointée par le hash pour la clkef 'lulu'.

[Philou67430]

Oui, mais pour utiliser la valeur de la clé "lulu", il faudra ajouter un niveau de déréfencement (au lieu de $H{lulu} il faudra écrire ${$H{lulu}})

[black bulldog]

Oui, mais pour utiliser la valeur de la clé "lulu", il faudra ajouter un niveau de déréfencement (au lieu de $H{lulu} il faudra écrire ${$H{lulu}})

OK j'avais en effet plusieurs problèmes d'incompréhension, qui n'a rien à voir avec les fonctions : la valeur de lulu est remplie dans la table au moment de l’initialisation de la table ; ce n'est pas parce que la variable change par la suite que cela change dans la table. Puis comme le dit Philou67430, il faut rajouter un niveau de déréfencement. En combinant les réponse, ca fonctionne. Merci !