• Деревья Nested Sets (25)
• Гостевая книга на PHP/MySQL (42)
• Отправка писем через PHP (81)
• ICQ-пейджер для вашего сайта (26)
• Форум, работающий с базой данных MySQL (39)

• Переходим с PHP на Perl, как это ни печально... (181)
• Отправка писем через PHP (81)
• Модульное программирование на PHP или как написать маленький портал. (68)
• Программирование на php на примере галереи в 3 вариантах. (55)
• Долой процедурное программирование, даешь объектно -ориентированное! (51)

Использование mod_perl

Mod_perl — это С модуль Apache, реализующий Perl интерпретатор + набор Perl модулей, предоставляющих следующие интересные возможности:

1. Кэширование откомпилированых cgi скриптов (Apache::Registry.pm)

2. Perl интерфейс к C API Apache

Как это выглядит — типичное использование mod_perl.

#!/usr/bin/perl
use strict;
use CGI qw(:cgi);
print header (), ’Hi, people!’;

# Это мы закомментируем
#### ScriptAlias /cgi-bin/ «/home/my-project.ru/cgi-bin/»

# А это добавим
PerlModule Apache::Registry
<Location /cgi-bin>
SetHandler perl-script
PerlHandler Apache::Registry
Options ExecCGI
allow from all
</Location>

Конфигурирование mod_perl.

<Location /cgi-bin>
SetHandler perl-script
</Location>

PerlModule Some::Module Other::Module

Perl*Handler Some::Module

package MyOwnResponseGenerator;
use strict;
use Apache::Constants qw(:common);

sub handler {
print «Content-type: text/html\n\n»;
print «Hi people! enjoy this response!»;
return OK; # We must return a status to mod_perl
}
1;

PerlModule MyOwnResponseGenerator
<Location /somelocation>
SetHandler perl-script
PerlHandler MyOwnResponseGenerator
PerlSendHeader On
</Location>

Особенности работы скриптов под Apache::Registry

#!/usr/bin/perl
use strict;
use CGI qw(:cgi);
use vars qw($i);
print header (), ++$i;

#!/usr/bin/perl
use CGI qw(:cgi);
use MySecurity qw(:check_user);
use vars qw($allow);

$allow = 1 if check_user (param(’login’), param(’password’));
print header ();
print (($allow) ? ’Some secret data’ : ’Cool hacker? Go away!’);

package Apache::ROOT::perl::script1_2epl;
use Apache qw(exit);
sub handler {
BEGIN { $^W = 1; };
$^W = 1;

### Original begin of script1.pl
use strict;
use CGI qw(:cgi);

my $var = ’a’;
sub show_var { "Var was $var and now is " . ++$var }
print header(), show_var ();
### Original end of script1.pl
}

Производительность

Пора закругляться

Где взять

//perl.apache.org/dist/mod_perl-1.0-current.tar.gz

Описание Perl модулей, поставляемые с mod_perl

//perl.apache.org/docs/1.0/api/index.html

Документация

//perl.apache.org/docs/1.0/index.html

Кто использует

//slashdot.org/

//search.cpan.org/

//www.wired.com/

More…