77.Язык Perl. Ссылки. Символьные ссылки.

Ссылки

Основные понятия

В предыдущих версиях Perl была реализована возможность только символьных ссылок. Perl версии 5 и выше позволяет использовать не только символьные ссылки на переменные, но и ``жесткие'' ссылки на любые данные. Так как любой скаляр может быть ссылкой, а массивы и хэши состоят из скаляров, то можно с легкостью организовать массив массивов, массив хэшей, хэш массивов и так далее. ``Жесткие'' ссылки следят за счетчиком ссылки и как только счетчик становится равным нулю, автоматически удаляют ссылку. Символьные ссылки содержат только имя переменной, также как символьная ссылка файловой системы содержит просто имя файла. Ссылки могут быть созданы несколькими способами:

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

$varref = \$foo;

$arref = @ARGV;

$hashref = \%ENV;

$coderef = \&handler;

Ссылка на массив может быть создана с использованием квадратных скобок:

$arrayref = [1,2,['a','b','c']];

По адресу $arrayref[2][1] будет храниться значение b.

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

$hashref = {

'Earth' => 'Moon',

'Jupiter' => 'Kallisto',

...

};

Ссылка на подпрограмму может быть создана с использованием слова sub, без определения имени подпрограммы:

$coderef = sub { print "Hello!\n" };

Ссылки часто возвращаются конструкторами. Объекты Perl на самом деле являются ссылками на специальную сущность, которая знает, какой пакет ассоциировать с объектом. Конструкторы это специальные подпрограммы, которые умеют создавать эту ассоциацию.

Чтобы извлечь информацию, на которую указывает ссылка, тоже существует несколько методов:

Можно сделать идентификатор ссылки частью имени переменной или подпрограммы:

$bar = $$scalarref;

push(@$arrayref,$filename);

$$arrayref[0] = "January";

$$hashref{"key"} = "value";

&$coderef(1,2,3);

$refrefref = \\\"how are you?";

print $$$$refrefref;

- напечатает ``how are you?''.

Нужно понимать, что раскрытие ссылки имеет более высокий приоритет, чем извлечение значения переменной.

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

$bar = ${$scalarref};

push(@{$arrayref},$filename);

${$arrayref}[0] = "January";

${$hashref}{"key"} = "value";

&{$coderef}(1,2,3);

В данном случае использование фигурных скобок ничего не меняет, но в общем случае в скобках может стоять произвольное выражение, даже подпрограмма:

&{ $dispatch{$index} }(1,2,3);

В случае массива или хэша можно использовать такую запись:

$arrayref->[0] = "January";

$hashref->{"key"} = "value";

Левая часть должна быть выражением, возвращающим ссылку, возможно также являющуимся раскрытием ссылки:

$array[$x]->{"foo"}->[0] = "January";

Если ссылка является ссылкой на объект, то раскрытие данных происходит также, как уже было описано выше.

Функция ref() может быть использована для определения типа объекта, на который указывает ссылка. Функция bless() может быть использована для ассоциирования ссылки с пакетом, функционирующим как объектный класс.

Символьные ссылки

Мы рассмотрели, что происходит, если величина, используемая в качестве ссылки, не была определена ранее. Что же происходит, если она уже определена и не является жесткой ссылкой? В таком случае она обрабатывается как символьная ссылка. То есть значение скаляра рассматривается как имя переменной, а не прямая ссылка на переменную.

$name = "foo";

$$name = 1; - то же самое, что $foo = 1;

${$name} = 2; - то же самое, что $foo = 2;

${$name x 2 } = 3; -то же самое, что $foofoo = 3;

$name->[0] = 4; -то же самое, что $foo[0] = 4;

@$name = (); - обнуляет массив @foo

&$name(); - вызывает &foo