5.8. Инвертирование хэша

Проблема

Хэш связывает ключ с ассоциированным значением. У вас имеется хэш и значение, для которого требуется определить ключ.

Решение

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

# %ХЭ1и связывает ключи со значениями %ОБРАТНЫЙ = reverse %XaiU;

Комментарий

в этом решении используется списковая эквивалентность хэшей, о которой упоминалось во введении. В списковом контексте reverse интерпретирует %ХЭШ как список и меняет местами составляющие его элементов. Одно из важнейших свойств списковой интерпретации хэша заключается в том, что элементы списка представляют собой пары «ключ/значение». После инвертирования такого списка первым элементом становится значение, а вторым - ключ. Если интерпретировать такой список как хэш, его значения будут являться ключами исходного хэша, и наоборот. Приведем пример:

%surname = ( Mickey => Mantle , "Babe => Ruth ), %first name = reverse %surname, print $first name{"Mantle, \n", Mickey

Если интерпретировать %surname как список, мы получим следующее:

(Mickey", "Mantle, "Babe, Ruth")

(a может быть, ("Babe", "Ruth", "Mickey", "Mantle), поскольку порядок элементов непредсказуем). После инвертирования список выглядит так:

(Ruth, "Babe", Mantle", Mickey)

Интерпретация его в качестве хэша дает следующее:

(Ruth => "Babe, Mantle" => Mickey)

в примере 5.2 приведена программа foodf ind. Если передать ей название продукта, она сообщает цвет, а если передать цвет - она сообщает название.

Пример 5.2. foodfind

#1/usr/bin/perl -w

# foodfind - поиск продуктов no названию или цвету

Sgiven = shift @ARGV or die usage foodfind food or color\n ; %color = (

Apple => "red,

print (a){$foods with color{yellow}} were yellowfoods. n, Banana Lemon were yellow foods.

Кроме того, это позволит модифицировать программу foodf ind так, чтобы она работала с цветами, соответствующими сразу нескольким продуктам. Например, при вызове f oodf ind yellow будут выводиться и Banana, и Lemon.

Если какие-либо значения исходного хэша были не простыми строками и числами, а ссылками, при инвертировании возникает проблема - ссылки не могут использоваться в качестве ключей, если только вы не воспользуетесь модулем Tie::Refflash (см. рецепт 5.12).

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

Описание функций reverse в perlfunc(l); рецепт 13.15.

5.9. Сортировка хэша

Проблема

Требуется работать с элементами хэша в определенном порядке.

Решение

Воспользуйтесь функцией keys для построения списка ключей, а затем отсортируйте их в нужном порядке:

"Banana" => "yellow, "Lemon => yellow", "Carrot" => orange

%food = reverse %color,

if (exists $color{$given}) {

print "Sgiven is a food with color $color{$given} \n,

If (exists $food{$given>) {

print $food{$given} is a food with color $given \n;

Если два ключа исходного хэша имеют одинаковые значения ("Lemon и "Banana" в предыдущем примере), то инвертированный хэш будет содержать лишь один из них (какой именно - зависит от порядка хэширования, так что непредсказуемо). Дело в том, что хэши в Perl по определению имеют уникальные ключи.

Чтобы инвертировать хэш с повторяющимися значениями, следует воспользоваться методикой рецепта 5.7 - то есть построить хэш, ассоциированные значения которого представляют собой списки ключей исходного хэша:

# Хэш %food color определяется во введении while ((Stood,$со1ог) = each(%food color)) { push((S){foods with color{$color}}, $food),

= sort { length($food color{$a}) <=> length($food color{$b}) } keys %food color, foreach $food (@foods) {

print $food IS $food color{$food} \n ,

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

Описание функций sort и keys вperlfunc{\); рецепт 5.6. Сортировка списков рассматривается в рецепте 4.15.

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

Проблема

Требуется создать новый хэш, содержащий элементы двух существующих хэшей.

Решение

Интерпретируйте хэши как списки и объедините их так, как это делается со списками:

# %hash - сортируемый хэш

@keys = sort { criterionO } (keys %hash),

foreach $key (@keys) {

$value = $hash{$key},

# Сделать что-то с $key, $value

Комментарий

Хотя хранить элементы хэша в заданном порядке невозможно (без использования модуля TieilxHash, упомянутого в рецепте 5.6), перебирать их можно в любом порядке.

Существует множество разновидностей одного базового механизма: вы извлекаете ключи, упорядочиваете их функцией sort и обрабатываете элементы в новом порядке. Допускается применение любых хитростей сортировки, упоминавшихся в главе 4 «Массивы». Рассмотрим пару практических примеров.

В первом фрагменте sort просто используется для упорядочения ключей по алфавиту:

foreach $food (sort keys %food color) { print $food is $food color($food) \n ,

Другой фрагмент сортирует ключи по ассоциированным значениям:

foreach $food (sort { $food color{$a} cmp $food color{$b} } ) keys %food color) {

print $food IS $food color{$food} \n ,

Наконец, сортировка выполняется по длине ассоциированных значений: