12.18. Пример: шаблон модуля

Ниже приведен «скелет» модуля. Если вы собираетесь написать собственный модуль, попробуйте скопировать и отредактировать его.

package Some::Module, # Должен находиться в Some/Module pm use strict: require Exporter;

use vars qw($VERSION @ISA ©EXPORT @EXPORT OK %EXP0RT TA6S);

# Установка версии для последующей проверки $VERSI0N = 0.01;

1..U ок 1 ок 2

ок 13 ок 14

% sudo make install Password:

Installing /usr/looal/lib/perl5/site perl/i386-freebsd/./auto/MD5/ MD5.S0

Installing /usr/looal/lib/perl5/site perl/i386-freebsd/./auto/MD5/ MDS.bs

Installing /usr/looal/llb/perl5/site perl/./auto/MD5/autosplit.ix Installing /usr/looal/lib/perl5/site perl/./MD5.pm Installing /usr/looal/llb/perl5/inan/man3/. /MD5.3

Writing /usr/looal/lib/perl5/site perl/i386-freebsd/auto/MD5/.packlist Appending Installation info to /usr/looal/lib/perl5/1386-freebsd/ 5.00404/perllooal.pod

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

# Если вы хотите установить модули в свой каталог % perl Makefile PL LIB="/lib

# Если у вас имеется полная поставка

% perl Makefile PL PREFIX=/perl5-private

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

Документация по стандартному модулю ExtUtils::MakeMaker. Файл INSTALL в исходной поставке Perl содержит сведения о построении двоичного файла perl со статической компоновкой.

@ISA = qw(Exporter);

@EXPORT = qw(&func1 &func2 &func4);

%EXP0RT TA6S = ( ); # например: TAG => [ qwlnamel name2! ],

tt Здесь находятся экспортируемые глобальные переменные, tt а также функции с необязательным экспортированием @EXPORT OK = qw($Var1 %Hashit &func3);

use vars qw($Var1 %Hashit):

# Здесь находятся неэкспортируемые глобальные имена пакета use vars qw(@more $stuff);

# Инициализировать глобальные переменные пакета,

# начиная с экспортируемых $Var1 = • ;

%Hashit = 0;

# Затем все остальные (к которым можно обращаться

# в виде $Some::Module::stuff) Sstuff = ;

@more =0;

# Все лексические переменные с файловой областью действия

# должны быть созданы раньше функций, которые их используют.

# Лексические переменные, доступ к которым й ограничивается данным файлом,

пу $priv var = ; my %secret hash = ();

# Закрытая функция, оформленная в виде замыкания

# и вызываемая через &$priv func. my $priv func = sub {

# Содержимое функции.

# Все ваши функции, экспортируемые и нет;

# не забудьте вставить что-нибудь в заглушки {} sub fund {....} # без прототипа

sub func2() {,,..} tt прототип - void

sub func3($$) {,..,} tt прототип - 2 скаляра

tt Функция не экспортируется автоматически, но может вызываться! sub func4(\%) {,,,,} tt прототип - 1 ссылка на хэш

END { } tt Завершающий код модуля (глобальный деструктор)

12.19. Программа: поиск версий и описаний установленных модулей 445

12.19. Программа: поиск версий и описаний установленных модулей

Perl распространяется вместе с множеством модулей. Еще больше модулей можно найти в CPAN. Следующая программа выводит имена, версии и описания всех модулей, установленных в вашей системе. Она использует стандартные модули (например, File::Find) и реализует некоторые приемы, описанные в этой главе. Программа запускается следующей командой:

% pmdesc

Она выводит список модулей с описаниями:

FileHandle (2.00) - supply object methods for filehandles

10 10 10

:File (1.06021) - supply object methods for filehandles ; Select (1.10) - 00 interface to the select system call :Socket (1.1603) - Object interface to socket ooininunications

С флагом -V программа pmdesc выводит имена каталогов, в которых находятся файлы:

% pmdesc -v

«<Modules from /usr/lib/perl5/i686-linux/5.00404»> FileHandle (2.00) - supply object methods for filehandles

Флаг -w предупреждает о том, что модуль не включает документации в формате pod, а флаг -s сортирует список модулей в каждом каталоге. Исходный текст программы приведен в примере 12.3.

Пример 12.3. pmdesc

#!/usr/bin/perl -w

п pmdesc - вывод описаний файлов рт

п tchrist@perl.com

use strict;

use File::Find qw(find);

use Getopt::Std qw(getopts); use Carp:

use vars (

q!$opt v!, # Вывод отладочной информации

q!$opt w!, # Предупреждения об отсутствующих

# описаниях модулей

q!$opt a!, # Вывод относительных путей

q!$opt s!, # Сортировка данных по каждому каталогу