Riferimenti in Perl: Array of Hashes

Question

Voglio ripetere un riferimento a un array di hash senza dover fare copie locali, ma continuo a ottenere Can not use string ("1") come ARRAY ref mentre "strict refs "errori. Perché? Come lo aggiusto?

sub hasGoodCar { 
    my @garage = (
       { 
       model => "BMW", 
       year => 1999 
       }, 

       { 
       model => "Mercedes", 
       year => 2000 
       }, 
       ); 

    run testDriveCars(\@garage); 
}  

sub testDriveCars { 
    my $garage = @_; 

    foreach my $car (@{$garage}) { # <=========== Can't use string ("1") as an ARRAY ref while "strict refs" error 
    return 1 if $car->{model} eq "BMW"; 
    } 
    return 0; 
} 

Answer 1

La linea

my $garage = @_; 

assegna la lunghezza di @_ al garage. Nella chiamata al metodo testDriveCars si passa un singolo argomento, quindi la lunghezza è uno, da cui il messaggio di errore relativo a "1".

Si potrebbe scrivere

my ($garage) = @_; 

o forse

my $garage = shift; 

invece.

C'è anche un punto e virgola nel post, dopo l'assegnazione di @garage.

Vedere perldoc perlsub per i dettagli.