12.5. Определение пакета вызывающей стороны 419

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

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

perlstyle(l); рецепты 10.2-10.3. Лексические переменные с файловой областью действия рассматриваются ъ perlmod(\).

12.5. Определение пакета вызывающей стороны

Проблема

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

Решение

Текущий пакет определяется так: $this pack = PACKAGE ;

Пакет вызывающей стороны определяется так:

$that pack = callerO;

Комментарий

Метапеременная PACKAGE возвращает пакет, в котором был откомпилирован

текущий код. Значение не интерполируется в строках, заключенных в кавычки:

print "I am in package PACKAGE \n"; # НЕВЕРНО! I am in package PACKAGE

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

package Alpha;

runit(Sline = <TEMP>);

package Beta; sub runit {

my Scodestr = shift;

eval Scodestr;

die if S@;

Такой подход работает лишь в том случае, если переменная $Ипе является глобальной. Для лексических переменных он не годится. Обходное решение - сделать так, чтобы функция run it принимала ссылку на функцию:

package Beta; sub runit {

my Scodestr = shift;

my Shispack = caller;

eval "package $hispack; $codestr";

die If $@;

Новое решение не только работает с лексическими переменными, но и обладает дополнительным преимушеством - синтаксис кода проверяется во время компиляции, а это сушествениый плюс.

При передаче файлового манипулятора стоит воспользоваться более переносимым решением - функцией Symbol;; qualify. Она получает имя и пакет, для которого оно уточняется. Если имя нуждается в уточнении, оно исправляется, а в противном случае остается без изменений. Однако это решение заметно уступает по эффективности прототипу *.

Следующий пример читает и возвращает п строк из файлового манипулятора. Перед тем как работать с манипулятором, функция qualify уточняет его.

open (FH, "< /etc/termcap")

or die "cant open /etc/termcap- $!"; ($a, $b, $c) = nreadline(3, FH);

use Symbol ();

use Carp;

sub nreadline {

my (Scount, Shandle) = @ ;

my(@retlist,Sline);

croak "count must be > 0" unless Scount > 0;

Shandle = Symbol;;qualify($handle, (caller())[0]);

croak "need open filehandle" unless defined fileno($handle),

push(@retlist, Sline) while defined($line = <$handle>) && Scount--; return @retlist;

Если при вызове функции nreadline файловый манипулятор всегда передается в виде тип-глоба .FH, ссылки на глоб \*FH или с помощью объектов FileHandle или 10;; Handle, уточнение не потребуется. Оно необходимо лишь на случай передачи минимального "FH".

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

Документация по стандартному модулю Symbol; рецепт 12.12. Специальные метапеременные FILE , LINE и PACKAGE описаны в perldata( 1).

12.6. Автоматизированное выполнение завершающего кода 421

12.6. Автоматизированное выполнение завершающего кода

Проблема

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

Решение

Начальный код реализуется просто - разместите нужные команды вне определений подпрограмм в файле модуля. Завершающий код помещается в блок END модуля.

Комментарий

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

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

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

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

SLogfile = "/tmp/mylog" unless defined $Logfile; open(LF, »$Logfile")

or die "cant append to SLogfile: $!"; select(((select(LF), $=1))[0]); # Отменить буферизацию LF log[iisg("startup");

sub logmsg {

my $now = scalar gmtime; print LF "$0 $$ $now: @ \n"

or die "write to $Logfile failed: $!";

END {

logmsgC"shutdown"); close(LF)

or die "close SLogfile failed: $!";