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

load module(Fcntl, qw(0 EXCL 0 CREAT 0 RDWR)):

sub load module {

eval require $ [0]": die If $ia,

$ [0]->import(@ [1 . $# ]);

Ho и OH в общем случае не идеален. Функция должна импортировать имена }ie в свой пакет, а в пакет вызвавшей стороны. В принципе эта проблема решается, но процедура становится все сложнее и сложнее.

Удобное альтернативное решение - применение директивы autouse. Она появилась в Perl 5.004. Эта новая директива экономит время для редко загружаемых функций, откладывая их загрузку до момента фактического использования:

use autouse Fcntl => qw( 0 EXCL() O.CREAT() 0 RDWR() );

Круглые скобки после 0 EXCL, 0 CREAT и 0 RDWR нужны для autouse, но не для use или import. Директива autouse принимает не только имена функций, но также позволяет передать прототип функции. В соответствии с прототипа.ми константы Fcntl вызываются без аргументов, поэтому их можно использовать в программе как простые слова без возни с use strict.

Также помните, что проверка use strict осуществляется во время кокнтляцин. Если модуль Fcntl подключается командой use, прототипы модуля Fcntl будут откомпилированы и мы сможем использовать константы без круглых скобок. EcjHi использована команда require или вызов use заключен в eval, как это делгшось выше, компилятор не сможет прочитать прототтшы, поэтому константы Fcntl не будут использоваться без скобок.

За сведениями об особенностях директтшы autouse обращайтесь к электронной документации.

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

Рецепт 12.2; документация но стандартному модулю Exporter (опнсание метода import); документация по стандартной директиве use autouse.

12.4. Ограничение доступа к переменным модуля

Проблема

Требуется сделать переменную или функцию закрытой (то есть разрешить ее использование только в границах пакета).

12.4. Ограничение доступа к переменным модуля 417

Решение

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

Комментарий

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

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

Однако переключение пакетов внутри области действия может привести к тому, что лексические переменные этой области остаются видны в любом месте области. Дело в том, что команда package всего лищь устанавливает новый префикс для глобальных идентификаторов.

package Alpha; my $аа = 10; $х = "azure";

package Beta; my $bb = 20; $x = "blue";

package main;

print "$aa, $bb, $x, $Alpha;;x, $Beta;;x\n"; 10, 20, , azure, blue

Ha это ли вы рассчитывали? Две лексические переменные, $аа и $bb, остаются в области действия, поскольку они не выщди за границы текущего блока, файла или eval. Считайте, что глобальные и лексические переменные существуют в раз-.ных изменениях, никак не связанных друг с другом. Пакетные команды не имеют ничего общего с лексическими переменными. После установки текущего префикса первая глобальная переменная $х в действительности представляет собой $Alpha;; х, а вторая - $Beta;: х, поскольку промежуточная команда package изменила префикс по умолчанию. Доступ к пакетным идентификаторам при указании полного имени может осуществляться откуда угодно, как это делается в команде print.

Итак, пакеты не позволяют ограничивать доступ - зато на это способны модули, поскольку они находятся в файлах, а файл всегда обладает собственной областью действия. Приведенный ниже простой модуль находится в файле Flipper.pm и экспортирует две функции, f lip worcls и f lip bounclary. Первая функция переставляет слова строки в обратном порядке, а вторая изменяет определение границы слова.

# Flipper, рт package Flipper; use strict;

require Exporter;

use vars qw(@ISA ©EXPORT SVERSION); @ISA = qw(Exporter);

©EXPORT = qw(flip words flip boundary); SVERSION =1.0;

my SSeparatrix = ; # По умолчанию пробел; предшествует функциям

sub flip boundary {

my $prev sep = SSeparatrix;

If (@ ) { SSeparatrix = $ [0] }

return $prev sep;

sub flip words {

my Sline = S [0];

my @words = split($Separatrix, Sline); return ]oin($Separatrix, reverse @words);

Модуль задает значения трех пакетных переменных, необходимых для работы Exporter, а также инициализирует лексическую переменную $Separatrix уровня файла. Как говорилось выше, эта переменная ограничивается границами файла, а не пакета. Весь код той же области действия, расположенный после ее объявления, прекрасно видит $Separatrix. Хотя глобальные переменные не экспортировались, к ним можно обращаться по полному имени - например, $Flipper;; VERSION.

Лексические переменные, существующие в некоторой области действия, нельзя прочитать или изменить вне этой области, которая в данном случае соответствует всему файлу после объявления переменной. На лексические переменные нельзя ссылаться по полному имени или экспортировать их; экспортирование возможно лишь для глобальных переменных. Если кому-либо за пределами модуля потребуется просмотреть или изменить лексические переменные файла, они должны обратиться с запросом к модулю. Именно здесь в игру вступает функция f lip bounclary, обеспечивающая косвенный доступ к закрытым компонентам модуля.

Работа приведенного выше модуля ничуть не изменилась бы, будь SSeparatrix пакетной глобальной переменной, а не файловой лексической. Теоретически к ней можно было бы обратиться снаружи так, что модулю об этом ничего не было известно. С другой стороны, не стоит увлекаться чрезмерными ограничениями и щедро уснащать модули лексическими переменными с файловой областью действия. У вас уже имеется пространство имен (в нашем примере - Flipper), в котором можно сохранить все необходимые идентификаторы. Собственно, для этого оно и предназначено. Хороший стиль программирования на Perl почти всегда избегает полностью уточненных идентификаторов.

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