Initial state:

0x305108

$а=3,

(!!)

0x305108

Ox3051fOO

SCALAR 0x351f00

(•---(made by Perl)

print 3 3

$$a $b\n,

Рис. 11.3. Анонимные субъекты

Оператор undef может использоваться с любой переменной или функцией Perl для освобождения занимаемой ей памяти. Однако не следует полагать, что при вызове undef всегда освобождается память, вызываются деструкторы объектов и т. д. В действительности оператор всего лишь уменьшает счетчик ссылок на 1. Без аргумента undef дает неопределенное значение.

Записи

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

Имея в своем распоряжении эти сложные структуры, можно воспользоваться ими для реализации записей. Запись представляет собой отдельную логическую единицу, состоящую из различных атрибутов. Например, запись, описывающая человека, может содержать имя, адрес и дату рождения. В С подобные вещи называются структурами (structs), а в Pascal - записями (RECORDs). В Perl для них не существует специального термина, поскольку эта концепция может быть реализована разными способами.

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

Например, запись «человек» может выглядеть так;

$Nat = {

Name => Leonhard Euler ,

Address => 1729 Ramanujan Lane\nMathworld, PI 31416 Birthday => 0x5bb55B0,

Поскольку ссылка $NAT является скалярной величиной, ее можно сохранить в элементе хэша или массива с информацией о целой группе людей и далее использовать приемы сортировки, объединения хэшей, выбора случайных записей и т. д., рассмотренные в главах 4 и 5.

Атрибуты записи, в том числе и «человека» из нашего примера, всегда являются скалярами. Конечно, вместо строк можно использовать числа, но это банально. Настоящие возможности открываются в том случае, если атрибуты записи также представляют собой ссылки. Например, атрибут "Birthday" может храниться в виде анонимного массива, состоящего из трех элементов: день, месяц и год. Выражение $person->{"BIrthday"}->[0] выделяет из даты рождения поле «день». Дата также может быть представлена в виде хэша, для доступа к полям которого применяются выражения вида $person->{ Birthday }->{ day }. После включения ссылок в коллекцию приемов перед вами откроются многие нетривиальные и полезные стратегии программирования.

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

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

perlref(l); регИо!(1); peiidsc(l).

11.1. Ссылки на массивы

Проблема

Требуется работать с массивом через ссылку.

Решение

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

$aref = \@аггау

$апоп аггау = [1, 3, 5, 7, 9],

$апоп сору = [ @аггау ]

@$implicit creation = (2, 4, 6, 8, 10),

Чтобы разыменовать ссылку на массив, поставьте перед ней символ @:

push((a$anon array, 11),

Или воспользуйтесь стрелкой с указанием индекса конкретного элемента в квадратных скобках:

$two = $implicit creation->[0],

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

$last idx = $#$aref, $num items = @$aref,

Дополнительные фигурные скобки повышают надежность и форсируют нужный контекст:

$last idx = $#{ $aref }; $num items = scalar @{ $aref };

Комментарий

Рассмотрим примеры использования ссылок на массивы:

# Проверить, содержит ли Ssomeref ссылку на массив If (ref($someref) ne ARRAY) {

die "Expected an array reference, not $someref\n";

print "@{$array ref}\n", # Вывести исходные данные

@order = sort @{ $array ref }; # Отсортировать их

push @{ $array ref }, litem; # Добавить в массив новый элемент

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

Автоматический подсчет ссылок в сочетании с оператором \ обладает большими возможностями;

sub array ref { my @array; return \@array,

$aref1 = array ref(); $aref2 = array ref(),

При каждом вызове array ref функция выделяет для (Эаггау новый блок памяти. Если бы мы не вернули ссылку на @аггау, то занимаемая массивом память была бы возвращена при выходе из блока, то есть при завершении подпрограммы. Однако ссылка на (Эаггау продолжает существовать, поэтому Perl не освобождает память, и мы получаем ссылку на блок памяти, недоступный через таблицу символов. Такие блоки памяти называются анонимными, поскольку с ними не связано никакое имя.

К определенному элементу массива, на который указывает ссылка $aref, можно обратиться в форме $$aref [4], но $afef->[4] делает то же самое и обладает большей наглядностью.

print $array ref->[$N]; # Обращение к N-му элементу (лучший вариант)

print $$array ref[$N]; # То же, но менее наглядно

print ${$array ref}[$N]; # То же, но непонятно и уродливо