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

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

Замыкания рассматриваются в perlref(l). Также см. главу 13, рецепты 10.11; 11.4.

11.8. Создание ссылок на методы

Проблема

Требуется сохранить ссылку на метод.

Решение

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

Комментарий

Ссылка на метод - это нечто большее, чем простой указатель на функцию. Вам также придется определить, для какого объекта вызывается метод, поскольку ис-ход}1ые данные для работы метода содержатся в объекте. Оптимальным решением будет использование замьп<апия. Если неременная $obj имеет лексическую область действия, воспользуйтесь следующим фрагментом:

$mref = sub { $ob]->meth(@ ) }; # Позднее...

$mref->("args", "go", "here");

Даже когда неременная $obj выходит из области действия, она остается в замыкании, хранящемся в $mref. Позднее при косвенном вызове метода будет использован правильный объект.

Учтите, что формулировка:

Ssref = \$obj->meth;

работает не так, как можно предположить. Сначала она вызывает метод объекта, а затем дает ссылку либо на возвращаемое значе}И1е, либо па последнее из возвращаемых значений, если метод возвращает список.

Метод сап из базового класса UNIVERSAL выглядит заманчиво, но вряд ли делает именно то, что вы хотите:

Scref = $obj->can("meth");

Он дает ссылку на код соответствующего метода (если он будет найден), не несущую информации об объекте. В сущности, вы получаете обычный указатель на функцию. Информация об объекте теряется. Из-за этого и понадобилось замыкание, запоминающее как состояние объекта, так и вызываемый метод.

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

Описание методов во введении к главе 13; рецепты 11.7; 13.7.

11.9. Конструирование записей 393

11.9. Конструирование записей

Проблема

Требуется создать тип данных для хранения атрибутов (запись).

Решение

Воспользуйтесь ссылкой на анонимный хэш.

Комментарий

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

Srecord = {

NAME => Jason-,

EMPNO => 132,

TITLE => "deputy peon",

AGE => 23,

SALARY => 37 000,

PALS => [ "Norbert", "Rhys, "Phineas"],

printf "I am %s, and my pals are %s,\n", Srecord->{NAME}, join(", ", @{Srecord->{PALS}});

Впрочем, от отдельной записи толку мало - хотелось бы построить структуры данных более высокого уровня. Например, можно создать хэш %ByName, а затем инициализировать и использовать его следуюп[им образом:

й Сохранить запись

Sbyname{ Srecord->{NAME} } = Srecord; К Позднее искать по имени

if (Srp = Sbyname{"Aron"}) { # false, если отсутствует missing

printf "Aron is employee %d \n", $rp->{EMPNO};

# Дать Джейсону нового друга

push @{Sbyname{"Jason"}->{PALS}}, "Theodore";

printf "Jason now has %d pals\n", scalar (9i{Sbyname{"Jason"}->{PALS}};

В результате %Ьупате превращается в хэш хэшей, поскольку хранящиеся в нем значения представляют собой ссылки на хэши. Поиск работника но имени с ири-мене}шем такой структуры оказывается простой задачей. Если значение найдено в хэше, мы сохраняем ссылку на запись во временной переменной $гр, с помощью которой далее можно получить любое нужное поле.

Для операций с %byname можно использовать стандартные средства работы с хэшами. Например, итератор each организует перебор элементов в произвольном порядке:

# Перебор всех записей

while ((Sname, Srecord) = each %byname) {

printf "%s IS employee number %d\n", Sname, $record->{EMPNO},

A как насчет поиска работников но номеру? Достаточно построить другую структуру данных - массив хэшей ©employees. Если работники нумеруются непоследовательно (скажем, после 1 следует номер 159997), выбор массива окажется неудачным. Вместо этого следует воспользоваться хэшем, в котором номер работника ассоциируется с записью. Для последовательной нумерации подойдет и массив:

й Сохранить запись

$employees[ $record->{EMPNO} ] = Srecord,

й Поиск по номеру

If (Srp = $employee[132]) {

printf employee number 132 is %s\n , $rp->{NAME},

При работе с подобными структурами дан}1ых обновление записи в одном месте обновляет ее везде. Например, следующая команда повышает жалование Джейсо-на на 3,5%:

$byname{Jason}->{SALARY} *= 1 035,

Внесенные изменения отражаются во всех представлениях этих записей. Помните о том, что $byname{ Jason } и $employees[l32] ссылаются на одну и ту же запись, поскольку хранящиеся в них ссылки относятся к одному анонимному хэшу.

Как отобрать все заниси, удовлетворяющие некоторому критерию? Для этого и была создана функция grep. Например, в следующем фрагменте отбираются два подмножества записей - работников, чья должность содержит слово "peon", и тех, чей возраст равен 27 годам.

@peons = grep { $ ->{TlTLE} =~ /реоп/i } gemployees, @tsevens = grep { $ ->{AGE} == 27 } employees;

Каждый элемент @peons и @tsevens представляет собой ссылку на запись, поэтому они, как и @employees, являются массивами хэшей.

Вывод записей в определенном порядке (например, по возрасту) выполняется так:

# Перебрать все записи

foreach $гр (sort { Sa->{AGE} <=> $b->{AGE} } values %byname) { printf %s IS age %d.\n", $rp->{NAME}, Srp->{AGE}; # или со срезом хэша через ссылку

printf "%s IS employee number %d.\n", eSrpiNAME, EMPNO};

Вместо того чтобы тратить время на сортировку по возрасту, можно просто создать для этих записей другое представление, @byage. Каждый элемент массива (например, $byage[27]) является массивом всех записей с данным возрастом. Фактически мы получаем массив массивов хэшей. Он строится так: