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");
}
}