Kopieren von Werten von einem Hash zu einem anderen in Perl

Question

Ich habe zwei Hashes, eine große und eine kleine. Alle kleineren Hash-Schlüssel werden in dem größeren Hash angezeigt, aber die Werte sind unterschiedlich. Ich möchte die Werte vom größeren Hash in kleineren Hash kopieren.

Beispiel:

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

Eine offensichtliche Antwort auf eine Schleife durch die Tasten des kleinen Hash sein würde, und kopieren Sie die Werte wie diese

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

Gibt es einen kürzeren Weg, dies zu tun ?

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

Hier ist eine Art und Weise Sie es tun könnte:

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

Altho, die for-Schleife die ziemlich ähnlich ist.

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

---

mapproof für diejenigen, die man braucht:

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; 

Ausgang:

A, 1, C, 3, B, 2