Référence trouvée où la liste de tailles égales est attendue

Question

J'écris ce code dans perl où je crée une clé unique et lui assigne une valeur.

sub populate { 
     my $file = shift; 
     my %HoH = shift; 

     open(INFILE,$file); 
     . 
     . 
     . 
     $final_name = $prepend.$five; 
     $HoH{$final_name} = $seven; 
} 

Maintenant, je passe deux paramètres à un sous-programme qui id comme

&populate(\%abc,$file_1); 
&populate(\%xyz,$file_2); 

Pourquoi ne me donne une erreur comme ceci:

Reference found where even-sized list expected 

Answer 1

Parce que votre hachage est attribué à une référence, et non un hachage (liste de taille paire). Vous devez faire:

my $hashref = shift; 

... 

$hashref->{$final_name} = $seven; 

ETA: Vous devez appeler sans & sous-routines, par exemple populate(...), sauf si vous souhaitez spécifiquement remplacer le prototype du sous-marin. Si vous ne savez pas ce qu'est un prototype, n'utilisez pas &. ETA2: Vous devriez vraiment utiliser un descripteur de fichier lexical et un argument ouvert à trois arguments. Considérez ce scénario:

open INFILE, $file; 
some_sub(); 
$args = <INFILE>; # <--- Now reading from a closed filehandle 

sub some_sub { 
    open INFILE, $some_file; 
    random code... 
    close INFILE; 
}