Perlはスカラーをハッシュにコピーします

Question

私はサブルーチンに渡しているハッシュを持っています。空のハッシュもサブルーチンに渡します。私は空のものにハッシュの内容をコピーしたいと思います。ここで

は私のコードがどのように見えるかです：

my %emptyHash =(); 
my %sourceHash =(); 
$sourceHash{'apple'} = 'red'; 
$sourceHash{'orange'} = 'orange'; 

mergeHash(\%emptyHash, \%sourceHash); 

foreach my $k (keys %emptyHash) 
{ 
    print "key=>". $k. "value=>".$emptyHash{$k}. "\n"; 
} 

sub mergeHash { 
    my $emptyHash = shift; 
    my $sourceHash = shift; 

    $emptyHash = $sourceHash; 

} 

私は、マージ後emptyHashを印刷するとき、私はまだ空のハッシュを取得します。 1つのハッシュの値をこのように別のものにコピーできないのですか？

Answer 1

$emptyhashおよび$sourcehashは、の参照である。 $emptyhash = $sourcehashを実行すると、変数$emptyhashには$sourcehashと同じ参照が含まれます。

代わりに、%$emptyhash = %$sourcehashが必要です。これは、ハッシュにそれらの参照が作用するようにします。ポイントです。

Answer 2

クイックコピーや深いコピーをしたいですか？クイックコピーは、ハッシュのトップレベルのスカラーだけをコピーします。ハッシュに匿名の配列やハッシュが含まれている場合、それらはコピーされません。代わりに、それらへの参照が行われます。つまり、それらの内部の変更がコピーされたハッシュで同じ変更を引き起こすことを意味します。

クイックコピー：

%$empty_hash = %$source_hash; 

ディープコピーは：

use Storable qw(dclone); 
$empty_hash = declone($source_hash); 

Storableは、Perlに付属している標準モジュールです。標準モジュールのリストについては、perldoc perlmodlibを参照してください。

Answer 3

以下にコードを修正しました。

my %emptyHash =(); 
my %sourceHash =(); 
$sourceHash{'apple'} = 'red'; 
$sourceHash{'orange'} = 'orange'; 

my $d = mergeHash(\%emptyHash, \%sourceHash); 

foreach my $k (keys %$d) 
{ 
    print "key=>". $k. "\tvalue=>". $emptyHash{$k}. "\n"; 
} 

sub mergeHash { 
    my $emptyHash = shift; 
    my $sourceHash = shift; 

    %$emptyHash = %$sourceHash; 
    return $emptyHash; 
}