11.2. Создание хэшей массивов 383

Имея ссылку на массив, можно получить срез субъектного массива?

@$pie[3. 5]; # Срез массива, но читается плохо

3ie}[3..5]; # Срез массива, читается лучше С)

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

@($pie}[3. 5] = ("blackberry", "blueberry", "pumpkin");

Срез массива полностью идентичен списку отдельных элементов. Поскольку ссылку на список получить нельзя, вам не удастся получить ссылку на срез массива:

Ssliceref = \@{$pie}[3..5]; # HEBEPHQi

Для перебора в массиве применяется цикл foreach или for:

foreach $item ( @{$array ref} ) {

# Данные в $item

for ($idx = 0; $idx <= $#{ $array ref }; $idx++) {

# Данные в $array ref->[$idx]

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

perlref{\) ярег11о1(1); рецепты 2.14; 4.5.

11.2. Создание хэшей массивов

Проблема

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

Решение

Сохраните в элементе хэша ссылку на массив. Используйте push для присоединения новых элементов:

push(@{ $hash{"KEYNAME} }, "new value);

Затем при выводе хэша разыменуйте значение как ссылку на массив:

foreach Sstring (keys %hash) {

print "Sstring: @{Shash{Sstring}}\n",

Комментарий

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

скольких ассоциированных значений с одним ключом - в $hash{$key} помещается ссылка на массив, содержащий значения $кеу. Все стандартные операции с хэшами (вставка, удаление, перебор и проверка существования) могут комбинироваться с операциями массивов (push, splice и foreach).

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

$hash{ а key } = [ 3, 4, 5 ] й Анонимный массив

Ключ с ассоциированным массивом используется так:

lvalues = @{ $hash{ а key } }

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

push (а{ $hash{ а key } } lvalue

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

Учтите, что запись вида:

P-esidents = @{ $phone2name{$number} },

при действующей директиве use strict вызовет исключение, поскольку вы пытаетесь разыменовать неопределенную ссылку без автоматического создания. Приходится использовать другую формулировку:

Presidents = exists( $phone2name{$number} ) @{ $phone2name{$number} } О }

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

Раздел «Hashes of Arrays»per/(isc(l); рецепт 5.8; пример «Хэш с автоматическим дополнением» из рецепта 13.15.

11.3. Получение ссылок на хэши

Проблема

Требуется работать с хэшем по ссылке. Например, ссылка может передаваться функции или входить во внешнюю структуру данных.

Решение

Получение ссылки на хэш:

$href = \%hash,

$anon hash = { keyl => valuel кеу2 => value2 }

$anon hash copy = { %hash }

Разыменование ссылки на хэш;

%hash = %$href, lvalue = $href->{$key}

©slice = ©Jhref{$key1 $кеу2 $кеуЗ}, # Обратите внимание стрелки нет ©keys = keys %$hash,

Проверка того, является ли переменная ссылкой на хэш;

if (ref($someref) ne HASH ) {

die Expected a hash reference, not $someref\n

Комментарий

Следуюиц1Й пример выводит все юиочи и значеш1я двух заранее определенных хэшей:

foreach $href ( \%ENV, \%1NC ) { «ИЛИ for $href ( \(%ENV %INC) ) { foreach $key ( keys %$href ) {

print $key => $href->{$key}\n ,

Операции со срезами хэшей по ссылке выполняются так же, как со срезами массивов. Например:

©values = @$hash ref{ keyl , кеу2 , кеуЗ },

for $val (©$hash ref{ keyl кеу2 , кеуЗ }) {

$val +=7 # Прибавить 7 к каждому значению в срезе хэша

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

Глава 5 «Хэши»; perlref{i), рецепт 11.9.

11.4. Получение ссылок на функции

Проблема

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

Решение

Получение ссылки на функцию;

Scref = \&func, $cref = sub { },

Вызов функции но ссылке:

©returned = $cref->(iQiarguments), ©returned = &$cref(arguments).