Язык программирования Perl

Шохирев Михаил Васильевич

print "6[sub1]:'$var'\n"; # выведет: 6[sub1]:'1'

}

sub sub2 { # видна ГЛОБАЛЬНАЯ $var из sub1

print "4[sub2]:'$var'";

$var = 'z'; # изменена $var из sub1!

print "-->'$var'\n"; # выведет: 4[sub2]:'1'-->'z'

my $var = '2'; # изменена $var из sub2

print "5[sub2]='$var'\n"; # выведет: 5[sub2]='2'

}

Сравнивая эту программу с предыдущим примером, можно отметить

следующие отличия.

1 Переменную $var в главной программе пришлось сделать глобальной, так как local не может скрывать лексические переменные.

2 Действие local распространяется до конца подпрограммы sub1, а также на вызываемую подпрограмму sub2.

3 При выходе из подпрограммы sub1 действие local заканчивается и восстанавливается значение, которое содержала глобальная переменная $var до применения к ней local.

В современных программах в основном используют функцию my для задания переменным лексической области видимости. Оправданное применение функции local в Perl обычно сводится к следующим случаям:

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

2 Временная модификация отдельных элементов массивов и хэшей, даже имеющих лексическую область видимости.

3 Создание локальных файловых манипуляторов в версиях Perl до 5.6, не поддерживающих использование лексических переменных для хранения файловых манипуляторов.

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

my $ref; # переменная для хранения ссылки

{ # в блоке создается

my $lex_var = 'Суслик'; # переменная $lex_var

$ref = \$lex_var; # в $ref помещена

} # ссылка на переменную

# $lex_var освобождается при выходе из блока

print "Ты суслика видишь? И я не вижу. А он есть: ";

print ${$ref}; # объект ссылки доступен через $ref

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

my $ref; # переменная для хранения ссылки

{ # в блоке создается

my $lex_var = 'Верблюд'; # переменная $lex_var

$ref = sub { return $lex_var }; # в $ref помещена

} # ссылка на подпрограмму

# $lex_var

освобождается при выходе из блока

print &$ref; # объект возвращается подпрограммой по $ref

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

sub make_closure { # функция создания замыканий:

my ($animal) = @_; # В лексической переменной

# сохраняется аргумент функции

my $ref2closure = sub { # и ссылка на

# анонимную подпрограмму,

return $animal; # которая имеет доступ

}; # к лексической переменной.

return $ref2closure; # возвращает ссылку на подпрограмму

}

# создаем 2 замыкания, сохраняя в них разные значения:

my $camel1 = make_closure('дромадер'); # одногорбый верблюд

my $camel2 = make_closure('бактриан'); # двугорбый верблюд

print &$camel1, ' ', $camel2->; # доступ по ссылкам

В этой лекции изложены основные сведения о подпрограммах в Perl. Мы продолжим изучение подпрограмм в лекции 13, где будет рассказано о библиотечных модулях, и в лекции 14, посвященной объектному программированию на Perl.

perldoc perlsub

Лекция 13. Библиотеки, пакеты и модули

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

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

Современные языки программирования предоставляют программистам средства для того, чтобы упорядочить свои наработки. Нетривиальная программа обычно представляет из себя некоторое количество файлов с исходными текстами, расположенных в нескольких каталогах. А большие программные комплексы образуют внушительную иерархию подкаталогов, содержащих десятки и сотни программных файлов. Универсальные подпрограммы принято сохранять в отдельных библиотечных файлах, чтобы обращаться к ним из разных программ. Сходные по назначению процедуры и функции объединяются в библиотеки подпрограмм. Библиотека программ на Perl - это файл, обычно с суффиксом .pl, где хранится произвольный набор подпрограмм для использования в других программах. (Этот суффикс иногда применяется для прикладных программ на Perl, но для них рекомендуется использовать суффикс .plx.) Для примера напишем небольшую программную библиотеку для работы с данными о музыкальных дисках и сохраним ее в файле 'lib/music_lib.pl':