如何在不使用循环的情况下在Perl中连接两个哈希？

Question

如何在不使用循环的情况下将散列a附加到Perl中的散列b？

Answer 1

如果你的意思是将他们的数据联合起来，那就做：

%c = (%a, %b);

Answer 2

您还可以使用切片将一个哈希合并到另一个哈希：

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

请注意，％b中的项目将覆盖％a中具有相同键的项目。

Answer 3

这将合并哈希值并考虑​​未定义的条目，因此它们不会替换内容。

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;