Karmaları Perl'de nasıl birleştirebilirim?

Her iki hash'ı% hash1 ile birleştirmenin en iyi yolu nedir? % Hash2 ve% hash1'in her zaman benzersiz anahtarlara sahip olduğunu her zaman bilirim. Mümkünse tek bir kod satırını da tercih ederim.

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

Hızlı Cevap (TL; DR)

    % hash1 = (% hash1,% hash2)

    ## veya başka ...

    @ hash1 {anahtarlar% hash2} = değerler% hash2;

    ## veya referanslarla ...

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

Genel Bakış

• Bağlam: Perl 5.x
• Sorun: Kullanıcı, iki karma ^1'i tek bir değişkene birleştirmek istiyor

Çözüm

• basit değişkenler için yukarıdaki sözdizimini kullanın
• karmaşık iç içe değişkenler için Hash :: Merge kullanın

Tuzaklar

• Her iki karma bir veya daha fazla yinelenen anahtar içerdiğinde ne yapmalı?
  • (bkz. örneğin, Perl - Yinelenen anahtarları içeren karmayı birleştir )
  • (örneğin Perl hash'lerine bakın: yinelenen anahtarlarla nasıl başa çıkılır ve olası çifti elde edilir )
• Boş bir değere sahip bir anahtar / değer çifti, boş olmayan bir değere sahip bir anahtar / değer çiftinin üzerine yazmalı mıdır?
  • İlk olarak, boş ve boş olmayan bir değer ne oluşturur? (ör. undefsıfır, boş dize false, yanlış ...)

Ayrıca bakınız

• Birleştirme karmalarıyla ilgili PM yayını
• PM Kategorik Soru-Cevap hash birliği
• Perl Yemek Kitabı 5.10. Hash'leri Birleştirme
• websearch: // perlfaq "iki karmayı birleştir"
• websearch: // perl birleştirme karması
• https://metacpan.org/pod/Hash::Merge

Dipnotlar

¹ * (aka ilişkilendirilebilir dizi , aka sözlük )

Perlfaq4'e göz atın: İki karmayı nasıl birleştiririm . Perl belgelerinde halihazırda pek çok iyi bilgi vardır ve bir başkasının cevaplamasını beklemek yerine hemen alabilirsiniz. :)

İki karmayı birleştirmeye karar vermeden önce, her iki karma da aynı anahtarlar içeriyorsa ve orijinal karmaları olduğu gibi bırakmak istiyorsanız ne yapmanız gerektiğine karar vermelisiniz.

Orijinal hash'leri korumak istiyorsanız, bir hash'i (% hash1) yeni bir hash'e (% new_hash) kopyalayın, ardından diğer hash'deki anahtarları (% hash2 yeni hash'e ekleyin. Anahtarın% new_hash içinde zaten mevcut olup olmadığı kontrol ediliyor) size kopyalarla ne yapacağınıza karar verme şansı verir:

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

Yeni bir karma oluşturmak istemiyorsanız, yine de bu döngü tekniğini kullanabilirsiniz; sadece% new_hash'i% hash1 olarak değiştirin.

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

Bir hash'in diğerinden anahtarların ve değerlerin üzerine yazması umurunuzda değilse, bir hash'i diğerine eklemek için bir hash dilimi kullanabilirsiniz. Bu durumda,% hash2'deki değerler, ortak anahtarlara sahip olduklarında% hash1'deki değerlerin yerini alır:

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

Bu eski bir soru, ancak Google aramamda 'perl merge hash'ları' için üst sıralarda çıkıyor - ve yine de çok yararlı CPAN modülü Hash :: Merge'den bahsetmiyor

Karma referanslar için. Aşağıdaki gibi küme parantezi kullanmalısınız:

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

ve yukarıda parantez kullanılarak önerilen yanıt değil :

$hash_ref1 = ($hash_ref1, $hash_ref2);