Как я могу комбинировать хеши в Perl?

Как лучше всего объединить оба хэша в% hash1? Я всегда знаю, что% hash2 и% hash1 всегда имеют уникальные ключи. Если возможно, я бы предпочел одну строчку кода.

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

Быстрый ответ (TL; DR)

    % hash1 = (% hash1,% hash2)

    ## или иначе ...

    @ hash1 {ключи% hash2} = значения% hash2;

    ## или со ссылками ...

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

Обзор

• Контекст: Perl 5.x
• Проблема: пользователь хочет объединить два хэша ¹ в одну переменную

Решение

• используйте синтаксис выше для простых переменных
• используйте Hash :: Merge для сложных вложенных переменных

Ловушки

• Что делать, если оба хэша содержат один или несколько повторяющихся ключей
  • (см., например, Perl - хэш слияния, содержащий повторяющиеся ключи )
  • (см., например, хеши Perl: как работать с повторяющимися ключами и получить возможную пару )
• Должна ли пара "ключ-значение" с пустым значением когда-либо заменять пару "ключ-значение" непустым значением?
  • Что в первую очередь представляет собой пустое и непустое значение? (например undef, ноль, пустая falseстрока`` ложь ...)

Смотрите также

• Пост в личке о слиянии хешей
• Хеш-объединение категориальных вопросов и ответов PM
• Поваренная книга Perl 5.10. Слияние хэшей
• websearch: // perlfaq "объединить два хеша"
• websearch: // хеш слияния perl
• https://metacpan.org/pod/Hash::Merge

Сноски

¹ * (он же ассоциативный массив , он же словарь )

Посмотрите perlfaq4: Как объединить два хэша . В документации Perl уже есть много полезной информации, и вы можете получить ее прямо сейчас, а не ждать, пока кто-нибудь ответит. :)

Прежде чем вы решите объединить два хэша, вы должны решить, что делать, если оба хэша содержат одинаковые ключи, и если вы хотите оставить исходные хэши такими, какими они были.

Если вы хотите сохранить исходные хеши, скопируйте один хеш (% hash1) в новый хэш (% new_hash), затем добавьте ключи из другого хеша (% hash2 в новый хеш. Проверка того, что ключ уже существует в% new_hash) дает вам возможность решить, что делать с дубликатами:

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

Если вы не хотите создавать новый хэш, вы все равно можете использовать эту технику цикла; просто измените% new_hash на% 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};
        }
    }

Если вам все равно, что один хэш перезаписывает ключи и значения другого, вы можете просто использовать хеш-срез, чтобы добавить один хеш к другому. В этом случае значения из% hash2 заменяют значения из% hash1, если у них есть общие ключи:

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

Это старый вопрос, но он часто встречается в моем поиске в Google по запросу «хеши слияния perl» - и при этом не упоминается очень полезный модуль CPAN Hash :: Merge.

Для хеш-ссылок. Вы должны использовать фигурные скобки, как показано ниже:

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

а не предложенный выше ответ с использованием скобок:

$hash_ref1 = ($hash_ref1, $hash_ref2);