После преобразования в строку ссылка принимает следующий вид:

Class::Somewhere=HASH(0x72048) ARRAY(0x72048)

Преобразованную ссылку невозможно вернуть к прежнему виду, поскольку она перестала быть ссылкой и превратилась в обычную строку. Следовательно, при использовании ссылок в качестве ключей хэша они теряют свои «волшебные свойства».

Для решения этой проблемы обычно создается специальный хэш, ключами которого являются ссылки, преобразованные в строки, а значениями - настс5я-щие ссылки. Именно это и происходит в модуле Tie::RefHash. Мы воспользуемся объектами ввода/вывода для работы с файловыми манипуляторами и покажем, что даже такие странные ссылки могут использоваться для индексации хэша, связанного с Tie::Refflash.

Приведем пример:

use Tie RefHash, use 10 File,

tie %name. Tie RefHash ,

foreach Sfilename ( /etc/termcap , /vmunix , /bin/cat ) { $fh = 10 File->( < Sfilename ) or next, $name{$fh} = $filename,

print open files , ]oin( , values %name \n ,

foreach $file (keys %name) {

seek($file, 0, 2), # Позиционирование в конец файла printf( %s is %d bytes long \n $name{$flie}, tell($file))

Однако вместо применения объекта в качестве ключа хэша обычно достаточно сохранить уникальный атрибут объекта (например, имя или идентификатор).

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

Документация по стандартному модулю Tie::Refflash; раздел «Warning» perl-ref{\).

5.13. Предварительное выделение памяти для хэша

Проблема

Требуется заранее выделить память под хэш, чтобы ускорить работу программы - в этом случае Perl не придется выделять новые блоки при каждом добавлении элемента. Окончательный размер хэша часто бывает известен в начале построения, и эта информация пригодится для повышения быстродействия.

5.14. Поиск самых распространенных значений 171

Решение

Присвойте количество пар «ключ/значение>> конструкции кеу5(%ХЭШ):

# Выделить в хэше %hash память для $num элементов keys(%hash) = $num,

Комментарий

Новая возможность, впервые появившаяся в Perl версии 5.004, может положительно повлиять на быстродействие вашей программы (хотя и не обязательно). В хэшах Perl и так применяются общие ключи, поэтому при наличии хэша с ключом Apple Perl уже не выделяет память под другую копию Apple при включении этого ключа в другой хэш.

# В %users резервируется место для 512 элементов keys(%users) = 512,

Внутренние структуры данных Perl требуют, чтобы количество ключей было равно степени 2. Если написать:

keys(%users) = 1000,

Perl выделит для хэша 1024 «гнезда». Количество ключей не всегда равно количеству гнезд. Совпадение обеспечивает оптимальное быстродействие, однако конкретное соответствие между ключами и гнездами зависит от ключей и внутреннего алгоритма хэширования Perl.

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

Функция keys описана вperlfunc(i). Также обращайтесь к рецепту 4.3.

5.14. Поиск самых распространенных значений

Проблема

Имеется сложная структура данных (например, массив или хэш). Требуется узнать, как часто в ней встречается каждый элемент массива (или ключ хэша). Допустим, в массиве содержатся сведения о транзакциях Web-сервера и вы хотите узнать, какой файл запрашивается чаще остальных. Или для хэша, в котором имя пользователя ассоциируется с количеством регистрации в системе, требуется определить наиболее распространенное количество регистрации.

Решение

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

%count = о,

foreach $element (@array) {

Например, мы можем легко построить генеалогическое дерево любого персонажа:

while (о) { chomp, do {

$count{$element}++

Комментарий

Каждый раз, когда возникает задача подсчета различных объектов, вероятно, стоит воспользоваться хэшем. В приведенном выше цикле foreach для каждого экземпляра $element значение $count{$eleiiient} увеличивается на 1.

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

Рецепты 4.6 и 4.7.

5.15. Представление отношений между данными

Проблема

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

Решение

Воспользуйтесь хэшем.

Комментарий

Следующий хэш представляет часть генеалогического дерева из Библии: