Copia di valori da un hash all'altro in perl

Question

Ho due hash, uno grande e uno piccolo. Tutte le chiavi di hash più piccole appaiono nell'hash più grande, ma i valori sono diversi. Voglio copiare i valori dall'hash più grande all'hash più piccolo.

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

Una risposta ovvia sarebbe quella di collegare attraverso i tasti del piccolo hash, e copiare i valori come questo

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

C'è un modo più breve per fare questo ?

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

Ecco un modo si potrebbe fare:

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

Altho che è abbastanza simile al ciclo for.

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

---

mapproof per coloro che hanno bisogno di uno:

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; 

uscita:

A, 1, C, 3, B, 2