Làm thế nào tôi có thể tham gia hai băm trong Perl mà không cần sử dụng vòng lặp?

Question

Làm cách nào để nối thêm băm vào băm b trong Perl mà không sử dụng vòng lặp?

Answer 1

Nếu bạn có nghĩa là mất đoàn dữ liệu của họ, chỉ cần làm:

%c = (%a, %b); 

Answer 2

Bạn cũng có thể sử dụng lát sáp nhập một băm thành khác:

@a{keys %b} = values %b; 

Lưu ý rằng các mục trong% b sẽ ghi đè các mục trong% a có cùng khóa.

Answer 3

Điều này sẽ hợp nhất băm và cũng tính đến các mục không xác định, vì vậy chúng không thay thế nội dung.

my %hash = merge(\%hash1, \%hash2, \%hash3); 

sub merge { 
    my %result; 

    %result = %{ $_[0] }; 
    shift; 

    foreach my $ref (@_) { 
     for my $key (keys %{$ref}) { 
      if (defined $ref->{$key}) { 
       $result{$key} = $ref->{$key}; 
      } 
     } 
    } 

    return %result; 
} 

Answer 4

my %c = %a; 
map {$c{$_} = $b{$_}} keys %b;