11.6. Создание массивов ссылок на скаляры 389

§array of srefs = ( new anon scalar(), new anon scalar() ); ${ $array[0] } = 6.02е23; ${ $array[1] } = "avocado";

print "\@array contains: ", join(", ", map { $$ } ©array ), "\n";

Обратите внимание на фигурные скобки вокруг $аггау[0] и $аггау[1]. Если бы мы попытались ограничиться простым $$аггау[0], то в процессе разыменования получили бы $аггау->[0]. Переменная $аггау интерпретировалась бы как ссылка на массив, поэтому в результате был бы возвращен элемент с нулевым индексом.

Приведем другие примеры, в которых фигурные скобки }1еобязательны:

$var = uptime; й $var содержит текст

$vref = \$var; # $vref "указывает на" $var

if ($$vref =~ /load/) {} # Косвенное обращение к Svar chomp SSvref; # Косвенное изменение Svar

Как упоминалось во введении, для определения тина субъекта по ссылке применяется встроенная функция ref. При вызове ref для ссылки на скаляр возвращается строка "SCALAR":

й Проверить, содержит ли Ssomeref ссылку на скаляр if (ref(Ssomeref) ne SCALAR) {

die "Expected a scalar reference, not Ssomeref\n";

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

perlref(l).

11.6. Создание массивов ссылок на скаляры

Проблема

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

Решение

Чтобы создать массив, либо снабдите префиксом \ каждый скаляр в списке:

§array of scalar refs = ( \Sa, \Sb );

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

§array of scalar refs = \( Sa, Sb );

Чтобы получить или задать значение элемента списка, воспользуйтесь конструкцией ${...}:

S{ Sarray of scalar refs[1] } = 12; # Sb = 12

Комментарий

в следующих примерах предполагается, что @аггау - простой массив, содержащий ссылки на скаляры (не путайте массив ссылок со ссылкой на массив). При косвенных обращениях к данным необходимы фигурные скобки.

($а, $Ь, $с, $d) = (1 .. 4); # Инициализировать

еаггау = (\$а, \$Ь, \$с, \$d); # Ссылки на все скаляры еаггау = \( $а, $Ь, $с, $d); # То же самое!

${ $аггау[2] } += 9; # $с = 12

${ $аггау[ $#аггау ] } *= 5; # $d = 20

${ $array[-1] } .=5; # То же; $d = 100

$tmp = $array[-1]; # Использование временной переменной

$$tmp .= 5; #$d = 500

Две формы присваивания @аггау эквивалентны - оператор \ обладает свойством дистрибутивности. Следовательно, \ перед списком (но не массивом!) эквивалентно применению \ к каждому элементу списка. Следующий фрагмент изменяет значения переменных, ссылки на которые хранятся в массиве.

А вот как работать с массивом без явного индексирования.

use Math;;Trig qw(pi); # Загрузить константу pi

foreach $sref (еаггау) { # Подготовиться к изменению $a,$b,$c,$d

($$sref *•= 3) *= (4/3 • pi); # Заменить объемом сферы

В этом фрагменте используется формула вычисления объема сферы: V = 4/Зпр.

Переменная цикла $s ref перебирает все ссылки @а г гау, а в $$s ref заносятся сами числа, то есть исходные неременные $а, $Ь, $с и $d. Изменение $$sref в цикле приводит к изменению этих неременных. Сначала мы возводим $$sref в куб, а затем умножаем полученный результат на 4/Зп. При этом используется то обстоятельство, что присваивание в Perl возвращает левостороннее выражение. Это позволяет сцеплять операторы присваивания, как это делается с операторами •*= и *=.

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

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

Раздел «Assignraent Operators» рег/ор(1).

11.7. Применение замыканий вместо объектов

Проблема

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

11.7. Применение замыканий вместо объектов 391

Решение

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

Комментарий

Поскольку замыкание представляет собой совокупность кода и данных, одна из реализаций позволяет имитировать поведение объекта.

Следующий пример создает и возвращает хэш анонимных функций. Функция mkcounter получает началь}юе значение счетчика и возвращает ссылку, позволяющую косвенно оперировать им.

$с1 = mkcounter(20); $с2 = inkcounter(77);

printf "next с1: %cl\n", $c1->{NEXT}->()

printf "next c2: %cl\n", $c2->{NEXT}->()

printf "next c1; %d\n", $c1->{NEXT}->()

printf "last c1. %d\n", $c1->{PREV}->()

# 21

# 78

# 22

# 21

printf "old c2: %d\n", $c2->{RESET}->(); # 77

Каждая ссылка на хэш, $с1 и $с2, отдельно хранит информацию о своем состоянии. Реализация выглядит так:

sub mkcounter {

my Scount = shift;

my Sstart = Scount;

my Sbundle = {

"NEXT" => sub { return ++Scount

"PREV" => sub { return --Scount

"GET" => sub { return Scount

"SET" => sub { Scount = shift

"BUMP" => sub { Scount += shift

"RESET" => sub { Scount = Sstart

Sbundle->{"LAST"} = Sbundle->{"PREV"}; return Sbundle;

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

В результате присваивания, расположенного непосредственно перед return, значения "prev" и "last" будут ссылаться на одно и то же замыкание. Если вы разбираетесь в объектно-ориентированном программировании, можете считать их двумя разными сообщениями, реализованными с применением одного метода.

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