Как объединить хэши в Perl?

perl dictionary hash merge

86375 просмотра

4 ответа

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

$hash1{'1'} = 'red';
$hash1{'2'} = 'blue';
$hash2{'3'} = 'green';
$hash2{'4'} = 'yellow';
Автор: mleykamp Источник Размещён: 17.05.2019 03:33

Ответы (4)


153 плюса

Решение

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

    % hash1 = (% hash1,% hash2)

    ## или еще ...

    @ hash1 {keys% hash2} = значения% hash2;

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

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

обзор

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

Решение

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

Ловушки

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

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


Сноски

1 * (aka ассоциативный массив , aka dictionary )

Автор: dreftymac Размещён: 08.12.2008 04:17

38 плюса

Проверьте 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;
Автор: brian d foy Размещён: 08.12.2008 05:08

14 плюса

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

Автор: LeeGee Размещён: 13.02.2013 12:02

5 плюса

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

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

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

$hash_ref1 = ($hash_ref1, $hash_ref2);
Автор: JeanieJ Размещён: 15.09.2017 07:23
Вопросы из категории :
32x32