Sao chép các giá trị từ một giá trị băm này sang một số khác trong perl

Question

Tôi có hai băm, một lớn và một nhỏ. Tất cả các khóa băm nhỏ hơn hiển thị trong băm lớn hơn, nhưng các giá trị khác nhau. Tôi muốn sao chép các giá trị từ băm lớn hơn đến băm nhỏ hơn.

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

Một câu trả lời rõ ràng sẽ được lặp qua các phím của băm nhỏ, và sao chép trên các giá trị như thế này

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

Có cách nào ngắn hơn để làm điều này ?

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

Đây là một cách bạn có thể làm điều đó:

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

Altho đó là khá tương tự như vòng lặp for.

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

---

mapproof cho những người cần một:

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; 

Output:

A, 1, C, 3, B, 2