Perl 해시/속성 혼동

Question

엄격한 경고와 경고를 사용하는 경우에는 발생하지 않을 것이라는 사실을 무시하고이 두 사례가 다른 이유를 알고 싶습니다. > {이름},하지만 -> {이름} 할당에 영향을 X [0] -

FINAL, FINAL 
SRV, FINAL 

인덱스가 제로의 경우, 않는 이유는 y는 [0] :

#!/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"; 

출력은 색인이 하나 일 때?

감사합니다.

숀.

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] } }; 

또는

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