Global Perl Hash Referenz Asignment

Question

Ich habe einen globalen Perl-Hash, dem ich den Wert aus meiner lokalen Referenz zuweisen, bin ich nicht sicher, ob das eine Kopie auf den globalen Hash oder verwendet die gleiche Referenz, aber das sollte sein ein lokaler Speicher für den Block.

#!/usr/bin/env perl 

use strict; 
use warnings; 

my $hash; 
foreach $a (1..10) { 
    my $localref = {"test"=> 1}; 
    $hash->[$a] = $localref; # does this result in copy? 
} 

Answer 1

Ich nehme an, das die globale hashref sein sollte:

my $hash; 

Die Schleife geht Trog 1 bis 10 einen lokalen Bereich Hashreferenz $ localref erstellen:

foreach $a (1..10) { 
    my $localref = {"test"=> 1}; 

$ localref ist jetzt ein Zeiger auf die Speicheradresse eines hashref enthält {test => 1}. Versuchen Sie, einen print Befehl hinzufügen, um es zu sehen:

print $localref; 

Sie werden feststellen, dass die Speicheradresse für jeden Schleifendurchlauf ändert gezeigt.

$hash->[$a] = $localref; # does this result in copy? 
} 

$hash->[$a] wird mit einem variablen $ hash als ArrayRef genannt. Sie sollten in Erwägung ziehen, es umzubenennen.

Versuchen Sie den Inhalt Ihres „globalen“ $ hash nach der Schleife zeigt:

for (1..10) { 
    print $_."\t".$hash->[$_]; 
} 

Sie werden sehen, alle Ihre Referenzen noch am Leben.

Use Data :: Dumper um den Inhalt zu zeigen:

use Data::Dumper; 
print Dumper($hash); 

Schluss Schlussfolgerung:

Der Speicherplatz Speicherung Ihrer HashRefs immer gleich bleibt, wird der Inhalt niemals kopiert werden, aber die Referenz (Adresse Information) wird kopiert. Zwei Referenzen auf den gleichen Ort existieren für einen kurzen Moment zwischen $hash->[$a] = $localref; und }.

PS: Der von {"test"=> 1} verwendete Speicher wird freigegeben, sobald keine Referenz mehr existiert.

Answer 2

$hash ist eigentlich ein Array ref, kein Hash-ref, und nein, das Element ($localref) Sie zur Aref sind Zuordnung ist keine Kopie, weil es sich um eine Referenz handelt. Um eine Kopie zu machen, Sie zu dereferenzieren haben vor dem Einfügen: %{ $array->[$a] } = %$localref;