print "How are you "; chomp($string = <STDIN>); If ($commands{$string}) {

$commands{$string}->(); } else {

print "No such command: $string\n";

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

sub counter maker { my Sstart = 0; return sub {

return Sstart-n-;

# Замыкание

# Лексическая переменная

# из вмещающей области действия

Комментарий

Чтобы получить ссылку на функцию, достаточно снабдить ее имя префиксом \&. Кроме того, формулировка sub {} позволяет создавать анонимные функции. Ссылка на анонимную функцию может быть сохранена так же, как и любая другая.

В Perl 5.004 появилась постфиксная запись для разыменования ссылок на функции. Чтобы вызвать функцию но ссылке, раньше приходилось писать &$f uncname (@ARGS), где $f uncname - имя функции. Возможность сохранить имя функции в неременной осталась и сейчас;

$funcname = "thefunc"; &$funcname();

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

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

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

ту %commancls = (

"happy" => \&]оу,

"sad" => \&sullen,

"done" => sub { die "See ya" },

"mad" => \&angry,

Scounter = counter maker();

for ($i =0; $1 < 5; $i ++) { print &$counter, "\n";

Даже несмотря на то что функция counter maker завершилась, а переменная $start вышла из области действия, Perl не освобождает ее, поскольку анонимная подпрограмма (на которую ссылается $counter) все еше содержит ссылку на Sstart. Если повторно вызвать counter maker, функция вернет ссылку на другую анонимную подпрограмму, использующую другое значение $start:

Scounterl = counter maker(); $count8r2 = counter maker();

for ($1 =0; $1 < 5; $i ++) { print &$counter1, "\n",

print &$counter1, " ", &$counter2, "\n",

Замыкания часто используются в косвенно-вызываемых функциях (callbacks). В графических интерфейсах и вообще в программировании, основанном на событиях, определенные фрагменты кода связываются с событиями нажатий клавиш, щелчков мышью, отображения окон и т. д. Этот код вызывается много позже, возможно, из совсем другой области действия. Переменные, используемые в замыкании, должны быть доступными к моменту вызова. Для нормальной работы они должны быть лексическими, а не глобальными.

Замыкания также используются в генераторах функций, то есть в функциях, которые создают и возвращают другие функции. Функция counter maker является генератором. Приведем еще один простой пример:

sub timestamp {

my $start time = time();

return sub { return time() - $start time };

Searly = timestampO; sleep 20;

Slater = timestampO; sleep 10;

printf "Its been %d seconds since early.\n", Searly->(); printf "It s been %d seconds since later.\n", Slater->(); Its been 30 seconds since early. Its been 10 seconds since later.

Каждый вызов timestamp генерирует и возвращает новую функцию. Функция timestamp создает лексическую переменную $start time, которая содержит текущее время (в секундах с начала эпохи). При каждом вызове замыкания оно возвращает количество прошедших секу}1Д, которое определяется вычитанием начального времени из текущего.

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

Описание замыканий в рег е/(1); рецепты 10.11; 11.4.

11.5. Получение ссылок на скаляры

Проблема

Требуется создать ссылку на скалярную величину и работать с ней.

Решение

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

$scalar ref = \$scalar; # Получение ссылки на именованный скаляр

Чтобы создать ссылку на анонимную скалярную величину (то есть скаляр, не являющийся неременной), присвойте }1уж1юе значение через разыменование нео-пределенной переменной;

undef $anon scalar ref; $$anon scalar ref = 15;

Ссылка на скалярную константу создается следующим образом; $anon scalar ref = \15;

Разыменование выполняется конструкцией ${...}:

print ${ $scalar ref }; # Разыменовать

${ $scalar ref } .= "string"; # Изменить значение субъекта

Комментарий

Если вам понадобилось создать Miioro новых анонимных скаляров, воспользуйтесь функцией, возвращающей ссылку на лексическую неременную вне области действия, как объяснялось во введении;

sub new anon scalar { my Stemp; return \$temp;

Perl почти никогда не выполняет косвенного разыменования. Исключение составляют ссылки на файловые манипуляторы, программные ссылки на sort и ссылочный аргумент функции bless. Из-за этого для разыменования скалярной переменной следует снабдить ее префиксом $, чтобы получить все ее содержимое:

$sref = new anon scalar(); $$sref = 3;

print "Three = $$sref\n";