Wie kann ich Hashes in Perl kombinieren?

Was ist der beste Weg, um beide Hashes zu% hash1 zu kombinieren? Ich weiß immer, dass% hash2 und% hash1 immer eindeutige Schlüssel haben. Ich würde auch eine einzelne Codezeile bevorzugen, wenn möglich.

$hash1{'1'} = 'red';
$hash1{'2'} = 'blue';
$hash2{'3'} = 'green';
$hash2{'4'} = 'yellow';

Schnelle Antwort (TL; DR)

    % hash1 = (% hash1,% hash2)

    ## oder sonst ...

    @ hash1 {keys% hash2} = Werte% hash2;

    ## oder mit Referenzen ...

    $ hash_ref1 = {% $ hash_ref1,% $ hash_ref2};

Überblick

• Kontext: Perl 5.x.
• Problem: Der Benutzer möchte zwei Hashes ¹ zu einer einzigen Variablen zusammenführen

Lösung

• Verwenden Sie die obige Syntax für einfache Variablen
• Verwenden Sie Hash :: Merge für komplexe verschachtelte Variablen

Tücken

• Was tun, wenn beide Hashes einen oder mehrere doppelte Schlüssel enthalten?
  • (siehe z. B. Perl - Merge-Hash mit doppelten Schlüsseln )
  • (Siehe z. B. Perl-Hashes: Wie gehe ich mit doppelten Schlüsseln um und erhalte ein mögliches Paar? )
• Sollte ein Schlüssel-Wert-Paar mit einem leeren Wert jemals ein Schlüssel-Wert-Paar mit einem nicht leeren Wert überschreiben?
  • Was macht überhaupt einen leeren oder einen nicht leeren Wert aus? (zB undefNull, leere Zeichenfolge false, Fälschung ...)

Siehe auch

• PM-Beitrag zum Zusammenführen von Hashes
• PM Categorical Q & A Hash Union
• Perl-Kochbuch 5.10. Hashes zusammenführen
• Websuche: // perlfaq "zwei Hashes zusammenführen"
• Websuche: // Perl-Merge-Hash
• https://metacpan.org/pod/Hash::Merge

Fußnoten

¹ * (aka assoziatives Array , aka Wörterbuch )

Check out perlfaq4: Wie kann ich zwei Hashes verschmelzen . Die Perl-Dokumentation enthält bereits viele gute Informationen, die Sie sofort erhalten können, anstatt darauf zu warten, dass jemand anderes sie beantwortet. :) :)

Bevor Sie zwei Hashes zusammenführen, müssen Sie entscheiden, was zu tun ist, wenn beide Hashes dieselben Schlüssel enthalten und Sie die ursprünglichen Hashes unverändert lassen möchten.

Wenn Sie die ursprünglichen Hashes beibehalten möchten, kopieren Sie einen Hash (% hash1) in einen neuen Hash (% new_hash) und fügen Sie dann die Schlüssel aus dem anderen Hash (% hash2) in den neuen Hash ein. Überprüfen Sie, ob der Schlüssel bereits in% new_hash vorhanden ist gibt Ihnen die Möglichkeit zu entscheiden, was mit den Duplikaten geschehen soll:

my %new_hash = %hash1; # make a copy; leave %hash1 alone

foreach my $key2 ( keys %hash2 )
    {
    if( exists $new_hash{$key2} )
        {
        warn "Key [$key2] is in both hashes!";
        # handle the duplicate (perhaps only warning)
        ...
        next;
        }
    else
        {
        $new_hash{$key2} = $hash2{$key2};
        }
    }

Wenn Sie keinen neuen Hash erstellen möchten, können Sie diese Schleifentechnik weiterhin verwenden. Ändern Sie einfach% new_hash in% hash1.

foreach my $key2 ( keys %hash2 )
    {
    if( exists $hash1{$key2} )
        {
        warn "Key [$key2] is in both hashes!";
        # handle the duplicate (perhaps only warning)
        ...
        next;
        }
    else
        {
        $hash1{$key2} = $hash2{$key2};
        }
    }

Wenn es Ihnen egal ist, dass ein Hash Schlüssel und Werte des anderen überschreibt, können Sie einfach ein Hash-Slice verwenden, um einen Hash zu einem anderen hinzuzufügen. In diesem Fall ersetzen Werte aus% hash2 Werte aus% hash1, wenn sie Schlüssel gemeinsam haben:

@hash1{ keys %hash2 } = values %hash2;

Dies ist eine alte Frage, die jedoch in meiner Google-Suche nach "Perl-Merge-Hashes" ganz oben steht - und dennoch wird das sehr hilfreiche CPAN-Modul Hash :: Merge nicht erwähnt

Für Hash-Referenzen. Sie sollten geschweifte Klammern wie die folgenden verwenden:

$hash_ref1 = {%$hash_ref1, %$hash_ref2};

und nicht die oben vorgeschlagene Antwort in Klammern:

$hash_ref1 = ($hash_ref1, $hash_ref2);