Jak mogę połączyć dwa hasze w Perlu bez użycia pętli?

Question

Jak mogę dodać skrót do hasza w języku Perl bez użycia pętli?

Answer 1

Jeśli masz na myśli wziąć unię swoich danych, wystarczy zrobić:

%c = (%a, %b); 

Answer 2

Można również użyć plasterki scalić jeden skrót do drugiego:

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

Zauważ, że pozycje w% B, zastąpić elementy w% a, które mają ten sam klucz.

Answer 3

Spowoduje to połączenie skrótów, a także uwzględnienie niezdefiniowanych pozycji, aby nie zastępowały treści.

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;