Comment puis-je joindre deux hachages en Perl sans utiliser de boucle?

Comment puis-je ajouter un hachage de hachage b en Perl sans l'aide d'une boucle?

source d'informationauteur biznez

  1. 31

    Si tu veux prendre de l'union de leurs données, il suffit de faire:

    %c = (%a, %b);
  2. 23

    Vous pouvez également utiliser des tranches de fusionner un hachage dans un autre:

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

    Noter que les articles en %b va remplacer les éléments en %qui ont la même clé.

  3. 2

    Cela permettra de fusionner les hachages et les également de prendre en compte non défini entrées, de sorte qu'ils ne remplacent pas le contenu.

    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;
}
  4. 2
    my %c = %a;
map {$c{$_} = $b{$_}} keys %b;