Perl hashref/confusion

Question

Игнорируя тот факт, что этого, вероятно, не произошло бы, если бы кто-то пользовался строгими и предупреждал, я хотел бы знать, почему эти два случая отличаются.

#!/usr/local/perl5/bin/perl 

$x[0] = ""; 
$y[0] = ""; 

$x[0]->{name} = "SRV"; 
$y[0]->{name} = "FINAL"; 
print "$x[0]->{name}, $y[0]->{name}\n"; 

$x[1]->{name} = "SRV"; 
$y[1]->{name} = "FINAL"; 
print "$x[1]->{name}, $y[1]->{name}\n"; 

Выход:

FINAL, FINAL 
SRV, FINAL 

Почему, когда индекс равен нулю, делает у [0] -> {имя} назначение влияют х [0] -> {имя}, но не когда индекс один?

Thanks,

Шон.

Answer 1

Это не тот код, на котором вы на самом деле бежали. В коде, который вы представили, $x[0] и $y[0] являются ссылками на разные хеши, но в проблемном коде $x[0] и $y[0] являются ссылками на один и тот же хэш. Как показано в следующем коде:

my %hash = { name => "SRV" }; 
$x[0] = \%hash;   # $x[0] is a reference to %hash. 
$y[0] = $x[0];   # $y[0] is a reference to %hash. 
$y[0]->{name} = "FINAL"; # Changes $hash{name}. 

print $x[0]->{name};  # Prints $hash{name}. 
print $y[0]->{name};  # Prints $hash{name}. 

Указанная проблема может быть исправлена ​​путем изменения

$y[0] = $x[0]; 

в

$y[0] = { %{ $x[0] } }; 

или

use Storable qw(dclone); 
$y[0] = dclone($x[0]);