Решение

Воспользуйтесь функцией each в цикле while:

whlle(($KЛЮЧ, $ЗНАЧЕНИЕ) = еасЬ(%ХЭШ)) {

# Сделать что-то с $КЛЮЧ и $ЗНАЧЕНИЕ

Если хэш не очень велик, можно вызвать keys в цикле foreach:

foreach $КЛЮЧ (keys %ХЭШ) { $ЗНАЧЕНИЕ = $ХЭШ{$КЛЮЧ}

# Сделать что-то с $КЛЮЧ и $ЗНАЧЕНИЕ

Комментарий

Следующий простой пример перебирает элементы хэша %food color из введения:

# Хэш %food color определяется во введении while(($food, $со1ог) = each(%food color)) { print Stood IS Scolor \n ,

Banana Is yellow. Apple Is red. Carrot Is orange. Lemon is yellow,

В примере с foreach можно обойтись без переменной $со1ог, поскольку она используется всего один раз. Достаточно написать:

print $food is $food color{$food} \n .

При каждом вызове each для одного и того же хэша функция возвращает «следующую» пару ключ/значение. Слово «следующую» взято в кавычки, потому что пары возвращаются в порядке, соответствующем внутренней структуре хэша, и этот порядок почти никогда не совпадает с числовым или алфавитным. За последним элементом each возвращает пустой список (); результат интерпретируется как ложный, и цикл while завершается.

В примере с foreach использована функция keys, которая строит список всех ключей из хэша еще перед началом выполнения цикла. Преимущество each заключается в том, что пары «ключ/значение» извлекаются по одной. Если хэш содержит много ключей, отказ от предварительного построения полного списка существенно экономит память и время. Однако функция each не позволяет управлять порядком обработки пар.

Применение foreach и keys для перебора списка позволяет установить свой порядок обработки Предположим, нам понадобилось вывести содержимое хэша в алфавитном порядке ключей:

foreach Stood (sort keys %food color) { print Stood IS $food color{Sfood} \n

Apple IS red. Banana is yellow. Carrot IS orange. Lemon is yellow.

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

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

while ( ($k,$v) = each %food color) { print Processing $k\n ,

keys %food color, # Возврат к началу %food color

Модификация хэша во время его перебора в each или foreach, как правило, сопряжена с опасностью. При добавлении или удалении ключей из хэша функция each ведет себя по-разному для связанных и несвязанных хэшей. Цикл foreach перебирает заранее построенный список 1сяючей, поэтому после начала цикла он ничего не знает о добавленных или удале1шых ключах. Ключи, добавленные внутри цикла, не включаются автоматически в список перебираемых ключей, а удаленные внутри цикла ключи не удаляются из этого списка.

Программа countfrom из примера 5.1 читает файл почтового ящика и выводит количество сообщений от каждого отправителя. Отправитель определяется по строке From: (в этом отношении сценарий не очень интеллектуален, однако нас сейчас интересуют операции с хэшами, а не обработка почтовых файлов). Передайте имя почтового ящика в кома1щной строке или используйте - для перенаправления.

Пример 5.1. countfrom

#1/usr/bin/perl

# countfrom - подсчет сообщений от каждого отправителя Sfilename = $ARGV[0] И - ,

open(FlLE, <$filename ) or die Can t open Sfilename $ ,

while(<FILE>) {

If (/"From ( .)/) { $from{$1}++ }

foreach $person (sort keys %from) { print Sperson $from{$person}\n ,

Комментарий

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

Первый способ (перебор хэша) чрезвычайно гибок и эффективен но затратам памяти Вы можете как угодно ({юрматироват ь выходные данные, при этом понадобятся всего две скалярные переменные - текуип1Й ключ и значение. Использо-BaiHie цикла foreach позволяет вывести хэш с упорядочением ключей (uenoii построения отсортированного cinicKa):

foreach $к (sort keys %hash) { print $k => $hash{$k}\n ,

Функция map не уступает перебору по богатству возможностей Сортировка ключей по-нрежпему позволяет работать с элементами в произвольном порядке. Выходные данные можно как угодно форматировать. На этот раз создается

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

Описание функций each и keys в рсг ыпс(1); onncairae циклов for и foreach в рецепте 4.5.

5.5. Вывод содержимого хэша

Проблема

Требуется вывести содержимое хэша, однако конструкции print %ХЭ111 и print %ХЭШ не работают.

Решение

Одно из возможных реше1Н[й - перебрать все пары «ключ/значение» в хэше (см. рецепт 5.4) и вывести их:

while ( ($к $v) = each %hash) { print $k => $v\n

Также можно построить список строк с помощью тар: print map { $ => $hash{$ }\n } keys %hash

Или воспользуйтесь фокусом из рецепга 1.10 и интерполируйте хэш как список:

print @{[ %hash ]}\п

Или сохраните хэш во временном массиве и выведите его:

ту @temp = %hash, print (Stemp ,