Как я могу объединить два хэша в Perl без использования цикла?

Question

Как добавить хеш a к хешу b в Perl без использования цикла?

Answer 1

Если вы хотите взять объединение своих данных, просто выполните:

%c = (%a, %b);

Answer 2

Вы также можете использовать фрагменты для объединения одного хеша в другой:

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

Обратите внимание, что элементы в% b будут перезаписывать элементы в% a с одинаковым ключом.

Answer 3

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

Answer 4

Это объединит хэши, а также примет во внимание неопределенные записи, поэтому они не заменят содержимое.

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;
}