В начале подпрограммы аргументы почти всегда копируются в именованные закрытые переменные для удобства и повышения надежности:

sub hypotenuse {

my ($side1, $side2) = @ ;

return sqrt( ($side1 ** 2) + ($side1 •* 2) );

Комментарий

Говорят, в программировании есть всего три удобных числа: ноль, единица и «сколько угодно». Механизм работы с подпрограммами Perl разрабатывался для упрощения написания функций со сколь угодно большим (или малым) числом параметров и возвращаемых значений. Все входные параметры хранятся в виде отдельных скалярных значений в специальном массиве @ , который автоматически становится локальным для каждой функции (см. рецепт 10.13). Для возвращения значений из подпрограмм следует использовать команду return с аргументом. Если она отсутствует, возвращаемое значение представляет собой результат последнего вычисленного выражения.

Приведем несколько примеров вызова функции hypotenuse, определенной в решении:

print hypotenuse(3, 4), "\n"; # Выводит 5

@а = (3, 4);

print hypotenuse(@a), "\n"; # Выводит 5

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

@both = (@men, @women);

Скалярные величины в @ представляют собой неявные синонимы для передаваемых значений, а не их копии. Таким образом, модификация элементов @ в подпрограмме приведет к изменению значений на вызывающей стороне. Это тяжкое наследие пришло из тех времен, когда в Perl еще не было нормальных ссылок.

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

@nums = (1.4, 3.5, 6.7);

(ffiints = int all(@nums); # @nums не изменяется

sub int all {

my @retlist = @ ; # Сделать копию для return

for my $n (@retlist) { $n = int($n) } return @retlist;

10.2. Создание закрытых переменных в функциях 351

Впрочем, функция также может изменять значения переменных вызывающей стороны:

(ffinuffls = (1.4, 3.5, 6.7);

trunc effl(@nums); # @nuffls = (1,3,6)

sub trunc em {

for (@ ) { $ = int($ ) } » Округлить каждый аргумент

Таким функциям не следует передавать константы - например, trunc em( 1.4, 3.5, 6.7). Если попытаться это сделать, будет возбуждено исключение Modification of а read-only value attempted at... («Попытка модифицировать величину, доступную только для чтения»).

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

$line = chomp(<>); » НЕВЕРНО

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

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

perlsub{i).

10.2. Создание закрытых переменных в функциях

Проблема

в подпрограмме потребовалось создать временную переменную. Использование глобальных переменных нежелательно, поскольку другие подпрограммы могут получить к ним доступ.

Решение

Воспользуйтесь ключевым словом ту для объявления переменной, ограниченной некоторой областью программы:

sub somefunc {

my $variable; # Переменная $variable невидима

# за пределами somefuncO my ($another, @an array, %a hash); # Объявляем несколько

# переменных сразу

П ...

Комментарий

Оператор ту ограничивает использование переменной и обращение к ней определенным участком программы. За пределами этого участка переменная недоступна. Такой участок называется областью действия (scope).

Переменные, объявленные с ключевым словом ту, обладают лексической областью действия - это означает, что они существуют лищь в границах некоторого фрагмента исходного текста. Например, областью действия переменной $variable из рещения яЬляется функция somef ипс, в которой она была определена. Переменная создается при вызове somef ипс и уничтожается при ее заверщении. Переменная доступна внутри функции, но не за ее пределами.

Лексическая область действия обычно представляет собой программный блок, заключенный в фигурные скобки, - например, определение тела подпрограммы somef ипс или границы команд if, while, for, foreach и eval. Лексическая область действия также может представлять собой весь файл или строку, переданную eval. Поскольку лексическая область действия обычно является блоком, иногда мы говорим, что лексические переменные (переменные с лексической областью действия) видны только в своем блоке - имеется в виду, что они видны только в границах своей области действия. Простите нам эту неточность, иначе слова «область действия» и «подпрограмма» заняли бы половину этой книги.

Поскольку фрагменты программы, в которых видна переменная ту, определяются во время компиляции и не изменяются позднее, лексическая область действия иногда не совсем точно называется «статической областью действия». Ее противоположностью является динамическая область действия, рассмотренная в рецепте 10.13.

Объявление ту может сочетаться с присваиванием. При определении сразу нескольких переменных используются круглые скобки:

ту ($name, $age) = @ARGV;

my Sstart = fetch time();

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

ту ($а, $Ь) = @pair; my $с = fetch time():

sub check x {

my $x = $ [0]; my $y = whatever"; run check(), if (Scondition) { print "got Sx\n";

В приведенном выще фрагменте блок if внутри функции может обращаться к закрытой переменной $х. Однако в функции run check, вызванной из этой области, переменные $х и $у недоступны, потому что она предположительно определяется в другой области действия. Однако check x может обращаться к $а, $Ь и $с из