5.10. Объединение хэшей 167

%merged = (%А, %В),

Для экономии памяти можно организовать перебор элементов и построить новый хэш следующим образом:

%merged = (),

while ( ($k,$v) = each(%A) ) {

$merged{$k} = $v,

while ( ($k,$v) = each(%B) ) {

$merged{$k} = $v,

Комментарий

в первом варианте, как и в предыдущем рецепте инвертирования хэшей, используется списковая эквивалентность, о которой говорилось во введении. (%А, %В) интерпретируется как список пар «ключ/значение». Когда он присваивается объединенному хэшу %merged, Perl преобразует список пар снова в хэш. Рассмотрим, как эта методика реализуется на практике:

# Хэш %food color определяется во Введении %drink color = ( Galliano => yellow ,

Mai Tai => blue ),

%ingested colors = (%drink color %food color),

Ключи обоих входных хэшей присутствуют в выходном не более одного раза. Если в хэшах найдутся совпадающие ключи, в итоговый хэш включается тот ключ, который встретился последним.

Прямое присваивание компактно и наглядно, но при больших размерах хэшей оно приводит к большим расходам памяти. Это связано с тем, что перед выполнением присваивания итоговому хэшу Perl разворачивает оба хэша во временный список. Пошаговое объединение с помощью each, показанное ниже, избавит вас от этих затрат. Заодно вы сможете решить, как поступать с совпадающими ключами.

С применением each первый фрагмент записывается следующим образом:

# Хэш %food color определяется во Введении %drink color = ( Galliano => yellow ,

Mai Tai => blue ),

%substance color = (), while (($k, $v) = each %food color) { $substance color{$k} = $v

while (($k, $v) = each %drink color) { $substance color{$k} = $v,

Обратите внимание на повторяющийся код присваивания в циклах while. Проблема решается так:

foreach $substanceref (\%food color, \%drink color ) { while (($k, $v) = each %substanceref) { $substance color{$k} = $v,

Если в объединяемых хэшах присутствуют одинаковые ключи, можно вставить код для обработки дубликатов:

foreach $substanceref (\%food color, \%drink color ) { while (($k, $v) = each %substanceref) { if (exists $substance color{$k}) {

print Warning $k seen twice Using the first definition \n , next,

$substance color{$k} = $v,

В частном случае присоединения одного хэша к другому можно воспользоваться срезом для получения более элегантной заниси:

@all colors{keys %new colors} = values %new colors,

Потребуется память в объеме, достаточном для хранения списков всех ключей и значений %new colors. Как и в первом варианте, расходы памяти при большом размере списков могут сделать эту методику неприемлемой.

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

Описание функции each вperlfunc{\); рецепт 4.9.

5.11. Поиск общих или различающихся ключей в двух хэшах

Проблема

Требуется найти в хэше ключи, присутствующие в другом хэше, - или наоборот, не входящие в другой хэш.

Решение

Организуйте перебор ключей хэша с помощью функции keys и проверяйте, присутствует ли текущий ключ в другом хэше.

Поиск общих ключей

ту ©common = (), foreach (keys %hash1) {

push(@common, $ ) if exists $hash2{$ },

# ©common содержит общие ключи

5.12. Хэширование ссылок 169

Поиск ключей, отсутствующих в другом хэше

ту @this not that = (), foreach (keys %hash1) {

push(@this not that, $ ) unless exists $hash2{$ },

Комментарий

При поиске общих или различающихся ключей хэшей можно воспользоваться рецептами для поиска общих или различающихся элементов в массивах ключей хэшей. За подробностями обращайтесь к рецепту 4.8.

В следующем фрагменте поиск различающихся ключей применяется для нахождения продуктов, не входящих в хэш с описаниями цитрусовых;

# Хэш %food color определяется во введении

# %citrus color - хэш, связывающий названия цитрусовых плодов с их цветами %citrus color = (Lemon => yellow ,

Orange => orange , Lime => green ),

n Построить список продуктов не входящих в хэш цитрусовых @non-citrus = 0,

foreach (keys %food color) {

push (@non citrus, $ ) unless exists $citrus color{$ },

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

Описание фущсции each врег1/тс(1). Срезы хэшей рассматриваются Bperldata(l).

5.12. Хэширование ссылок

Проблема

Если функция keys вызывается для хэша, ключи которого представляют собой ссылки, то возвращаемые ей ссылки не работают. Подобная ситуация часто возникает при создании перекрестных ссылок в двух хэшах.

Решение

Воспользуйтесь модулем Tie::Refflash:

use Tie RefHash,

tie %hash, Tie RefHas ,

n Теперь в качестве ключей хэша %hash можно использовать ссылки

Комментарий

Ключи хэшей автоматически преобразуются в строки - то есть интерпретируются так, словно они заключены в кавычки. Для чисел и строк при этом ничего не теряется. Однако со ссылками дело обстоит иначе.