глобальных, а не локальных переменных, директива use strict ни к чему хорошему не приведет.

Оператор local создает динамическую область действия. Она отличается от другой области действия, поддерживаемой Perl и значительно более понятной на интуитивном уровне. Речь идет об области действия ту - лексической области действия, иногда называемой «статической».

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

Старый фрагмент вида:

sub tunc {

local($x $у) = @

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

sub tunc {

my{$x, $у) = @ , #

Единственный случай, когда подобная замена невозможна, - если работа программы основана на динамической области действия. Это происходит в ситуации, когда одна функция вызывает другую и работа второй зависит от доступа к временным версиям глобальных переменных $х и $у первой функции. Код, который работает с глобальными переменными и вместо нормальной передачи параметров издалека вытворяет нечто странное, в лучшем случае ненадежен. Хорошие программисты избегают подобных выкрутасов как чумы.

Если вам встретится старый код вида:

&func(*Global Array) sub tunc {

local(.aliased array) = shift,

for (@aliased array) { }

вероятно, его удастся преобразовать к следующей форме:

func(\@Global Array), sub tunc {

ray $array ref = shift

for (@$array ref) { }

>

10.14. Переопределение функции 369

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

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

Описание функций local и щ врег1/ипс{1); разделы «Pnvate Variables via my()» и «Тешрогагу Values via \ocul()» perlsub(l); рецепты 10.2; 10.16.

10.14. Переопределение функции

Проблема

Требуется временно или постоянно переопределить функцию, однако функциям нельзя «присвоить» новый код.

Решение

Чтобы переопределить функцию, присвойте ссылку на новый код тип-глобу имени функции. Используйте local для временной замены.

undef &grow, tt Заглушить жалобы -w на переопределение

♦grow = \&expand

grow() tt Вызвать expandO

local *grow = \&shrink, tt Только в границах блока grow() tt Вызывает shrink()

Комментарий

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

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

♦one var = \%two Table, # %one var становится синонимом для %two Table *one big = \&two small, tt &one big становится синонимом для &two small

С тии-глобом можно использовать local, но не ту. Из-за local синоним действует только в границах текущего блока.

local .fred = \&barney, П временно связать &fred с &barney

Если значение, присваиваемое тип-глобу, представляет собой не ссылку, а другой тин-глоб, то замена распространяется на все типы с данным именем. Полное присваивание тин-глоба относится к скалярным величинам, массивам, хэшам, функциям, файловым манипуляторам, манипуляторам каталогов и форматам. Следовательно, присваивание «Тор = * Bottom сделает переменную $Тор текущего пакета синонимом для $Bottom, @Тор - для @Bottom, %Тор - для %Bottom и &Тор - для &Bottom. Замена распространяется даже на соответствующие манипуляторы файлов и каталогов и форматы! Вероятно, это окажется лишним.

Присваивание тин-глобов в сочетании с замыканиями позволяет легко и удобно дублировать функции. Представьте, что вам понадобилась функция для генерации HTML-кода, работающего с цветами. Например:

Sstring = redCcareful here"); print Sstring;

<FONT COLOR=red>careful here</FONT> Функция red выглядит так:

sub red { "<FONT COLOR=red>@ </FONT>" }

Если вам потребуются другие цвета, пишется нечто подобное:

sub color font {

my Scolor = shift;

return "<FONT COLOR=Scolor>i8i </F0NT>";

sub red { color font("red", }

sub green { color font("green", }

sub blue { color font("blue", (? ) } sub purple { color font("purple", (? ) } # И T. Д.

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

colors = qw(red blue green yellow orange purple violet); for my Sname (gcolors) { no strict refs;

• Sname = sub { "<FONT COLOR=Sname>(8i </F0NT>" };

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

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