> Смотри также --------------------------------
Документация по стандартному модулю ExtUtils::MakeMaker; h2ph(1) В xsubpp(1). Вызовы функций С из Perl описаны в perlxstut(l) и perlxs(l), а вызовы функций Perl из С - в perlembed(l). Внутренний API Perl рассматривается в perlcall{1) nperlguts(1). По адресу http://www.perl.com/CPAN/authors/Dean _ Roehrich/ находится подробное руководство по XS с рекомендациями по организации интерфейса с C++.

12.16. Документирование модуля в формате pod

Проблема

Решение

Комментарий

> Смотри также
Раздел "POD: Enbedded Documentation" в perlsyn(1) ;perlpod(1); pod2man(1), pod2html( 1) и pod2text{ 1).

12.17. Построение и установка модуля CPAN

Проблема

Решение

Комментарий

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

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

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

) { chomp;
print join("\n", sort split /\n/), "\n";
} exit;
}
}
MAIN: {
my %visited;
my ($dev,$ino);
@Future{@ARGV} = (1) x OARGV;
foreach $Start_Dir (@ARGV) { delete $Future{$Start_Dir};
print "\n"Modules from $Start_Dir"\n\n" if $opt_v;
next unless ($dev,$ino) = stat($Start_Dir);
next if $visited{$dev,$ino}++;
next unless $opt_a |[ $Start_Dir =~ m!"/!;
find(\&wanted, $Start_Dir);
}
exit;
}
# Вычислить имя модуля по файлу и каталогу
sub modname { local $_ = $File::Find::name;
if (index($_, $Start_Dir . '/') == 0) { substr($_, 0, 1+length($Start_Dir)) =
}
s { / } {::}gx, s { \.p(m|od)$ } {}x;
return $_:
}
# Решить, нужен ли нам данный модуль
sub wanted {
if ( $Future{$File::Find::name} ) {
warn "\t(Skipping $File::Find::name, qui venit in future.)\n" if 0 and $opt_v;
$File::Find::prune = 1;
return:
} return unless /\.pm$/ && -f;
$Module = &modname;
# skip obnoxious modules
if ($Module =~ /"CPAN(\Z|::)/) {
warn("$Module -- skipping because it misbehaves\n");
return;
}
my $file = $_;
unless (open(POD, "< $file")) {
warn "\tcannot open $file: $! # if $opt_w;
return 0;
}
$:=" -:";
local $/ = oo;
local $_;
while () {
if (/=head\d\s+NAME/)
chomp($_ = )
s/".*'?-\s+//s; vs/\n/ /g;
#write;
my $v,
if (defined ($v = getversion($Module))) {
print "$Module ($v) ";
} else {
print "$Module ";
} print "- $_\n";
.return 1;
}
}
warn "\t(MISSING DESC FOR $File::Find::name)\n'
if $opt_w;
return 0;
}
# Загрузить модуль и вывести его номер версии,
# перенаправляя ошибки в /dev/null
sub getversion { my $mod = shift:
my $vers = '$"X -m$mod -e 'print \$${mod}::VERSION' 2>/dev/null $vers =` s/"\s*(. *?)\s*$/$1/; # Удалить лишние пропуски return ($vers || undef);
}
format = <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$Module, $_

---

© copyright 2000 Soft group