perlのあるハッシュから別のハッシュへの値のコピー

Question

私は大きなものと小さいものの2つのハッシュを持っています。小さなハッシュのキーはすべて、より大きいハッシュに表示されますが、値は異なります。大きなハッシュの値を小さなハッシュにコピーしたい。

EG：

# I have two hashes like so 
%big_hash = (A => '1', B => '2', C => '3', D => '4', E => '5'); 
%small_hash = (A => '0', B => '0', C => '0'); 
# I want small_hash to get the values of big_hash like this 
%small_hash = (A => '1', B => '2', C => '3'); 

明白な答えは、小さなハッシュのキーをループにすること、そしてこの

foreach $key (keys %small_hash) { $small_hash{$key} = $big_hash{$key}; } 

のような値をコピーしますが、これを行うために短い方法はあります？

%small = map { $_, $big{$_} } keys %small; 

Althoループのためにかなり似ています：

Answer 1

@small_hash{ keys %small_hash } = @big_hash{ keys %small_hash }; 

Answer 2

use strict; 
my %source = (a => 1, b => 2, c => 3); 
my %target = (a => -1, x => 7, y => 9); 

# Use a hash slice for the copy operation. 
# Note this will clobber existing values. 
# Which is probably what you intend here. 
@target{ keys %source } = values %source; 

for (sort keys %target) { 
    print $_, "\t", $target{ $_ }, "\n"; 
} 

Answer 3

は、ここであなたがそれを行うことができます方法です。

$small{$_} = $big{$_} for keys %small; 

1を必要とする人のため

---

mapproof：

my %big = (A => '1', B => '2', C => '3', D => '4', E => '5'); 
my %small = (A => '0', B => '0', C => '0'); 

%small = map { $_, $big{$_} } keys %small; 

print join ', ', %small; 

出力：

A, 1, C, 3, B, 2