Kopiowanie wartości z jednego hasha na inny w perlu

Question

Mam dwa hashe, jeden duży i jeden mały. Wszystkie mniejsze krzyżyki pojawiają się w większym haszu, ale wartości są różne. Chcę skopiować wartości z większego skrótu do mniejszego skrótu.

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'); 

Oczywistą odpowiedzią byłoby pętli poprzez klawisze małej hash i skopiować wartości jak ten

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

Czy istnieje krótsza droga to zrobić ?

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

Oto sposób można to zrobić:

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

Altho to dość podobna do pętli for.

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

---

mapproof dla tych, którzy potrzebują jednego:

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; 

wyjściowa:

A, 1, C, 3, B, 2