Bagaimana cara menggabungkan hash di Perl?

Apa cara terbaik untuk menggabungkan kedua hash menjadi% hash1? Saya selalu tahu bahwa% hash2 dan% hash1 selalu memiliki kunci unik. Saya juga lebih suka satu baris kode jika memungkinkan.

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

Jawaban Cepat (TL; DR)

    % hash1 = (% hash1,% hash2)

    ## atau lainnya ...

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

    ## atau dengan referensi ...

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

Gambaran

• Konteks: Perl 5.x
• Masalah: Pengguna ingin menggabungkan dua hash ¹ menjadi satu variabel

Larutan

• gunakan sintaks di atas untuk variabel sederhana
• gunakan Hash :: Merge untuk variabel bersarang yang kompleks

Jebakan

• Apa yang harus dilakukan jika kedua hash berisi satu atau lebih kunci duplikat
  • (lihat misalnya Perl - Merge hash yang berisi kunci duplikat )
  • (lihat misalnya, hashes Perl: bagaimana menangani kunci duplikat dan mendapatkan kemungkinan pasangan )
• Haruskah pasangan nilai kunci dengan nilai kosong menimpa pasangan nilai kunci dengan nilai yang tidak kosong?
  • Apa yang dimaksud dengan nilai kosong vs nilai tidak kosong? (mis. undef, nol, string kosong false,, falsy ...)

Lihat juga

• PM memposting tentang menggabungkan hash
• PM Categorical Q&A hash union
• Perl Cookbook 5.10. Menggabungkan Hash
• websearch: // perlfaq "menggabungkan dua hash"
• websearch: // perl merge hash
• https://metacpan.org/pod/Hash::Merge

Catatan kaki

¹ * (alias array-asosiatif , alias kamus )

Lihat perlfaq4: Bagaimana cara menggabungkan dua hash . Ada banyak informasi bagus yang sudah ada di dokumentasi Perl dan Anda dapat langsung mendapatkannya daripada menunggu orang lain menjawabnya. :)

Sebelum Anda memutuskan untuk menggabungkan dua hash, Anda harus memutuskan apa yang harus dilakukan jika kedua hash berisi kunci yang sama dan jika Anda ingin membiarkan hash asli apa adanya.

Jika Anda ingin mempertahankan hash asli, salin satu hash (% hash1) ke hash baru (% new_hash), lalu tambahkan kunci dari hash lain (% hash2 ke hash baru. Memeriksa apakah kunci sudah ada di% new_hash memberi Anda kesempatan untuk memutuskan apa yang harus dilakukan dengan duplikat:

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

Jika Anda tidak ingin membuat hash baru, Anda masih bisa menggunakan teknik perulangan ini; cukup ubah% new_hash menjadi% 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};
        }
    }

Jika Anda tidak peduli bahwa satu hash menimpa kunci dan nilai dari yang lain, Anda bisa menggunakan potongan hash untuk menambahkan satu hash ke hash lainnya. Dalam kasus ini, nilai dari% hash2 menggantikan nilai dari% hash1 jika keduanya memiliki kunci yang sama:

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

Ini adalah pertanyaan lama, tetapi keluar tinggi dalam pencarian Google saya untuk 'perl merge hashes' - namun tidak menyebutkan modul CPAN yang sangat membantu Hash :: Merge

Untuk referensi hash. Anda harus menggunakan kurung kurawal seperti berikut:

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

dan bukan jawaban yang disarankan di atas menggunakan tanda kurung:

$hash_ref1 = ($hash_ref1, $hash_ref2);