Содержимое хэша не изменяется

Question

Почему не меняется содержимое моего хэша hh? Как сохранить изменения в основной части после вызова func?

my @RR = (1,2); 
foreach(@RR) 
{ 
    my %hh; 
    &func(\%hh); 
    print "SIZE: ".keys(%hh)."\n"; 
} 

sub func 
{ 
    my %hh = %{$_[0]}; 
    my $n="noob"; 
    my $m="moon"; 
    $hh{$n}{$m}[0]="hey"; 
    $hh{$n}{$m}[1]="bye"; 
} 

выход:

SIZE: 0 
SIZE: 0 

Answer 1

Вы создаете новые копии %hh для каждой итерации цикла, и каждого суб использования. Вы передаете свой аргумент по ссылке, но это не имеет значения, поскольку вы копируете значения в любом случае внутри суб. Это:

my %foo = %$bar; 

..makes копию $bar, и любые изменения в %foo не передается на $bar.

Вот прокомментировал версию вашего сценария:

foreach(@RR) 
{ 
    my %hh;      # new variable %hh created each loop iteration 
    &func(\%hh);     # hash passed by reference 
    print "SIZE: ".keys(%hh)."\n"; 
} 

sub func 
{ 
    my %hh = %{$_[0]};   # new variable %hh created, key/values copied 
    my $n="noob"; 
    my $m="moon"; 
    $hh{$n}{$m}[0]="hey";  # copy of %hh affected 
    $hh{$n}{$m}[1]="bye"; 
}        # copy of %hh goes out of scope, values lost 

Если вы хотите, чтобы это работало, как ожидалось, вам необходимо будет использовать реальные ссылки:

sub func { 
    my $ref = shift; 
    $ref->{"noob"}{"moon"}[0] = "hey"; 
    $ref->{"noob"}{"moon"}[1] = "bye"; 
}