.从http://perl.apache.org下载mod_perl的源代码包
.安装
$ perl Makefile.PL /
USE_APXS=1 /
WITH_APXS=/usr/local/apache/bin/apx /
EVERYTHING=1 /
PERL_USELARGEFILES=0
$make
$make install
.测试
修改httpd.conf文件,加入一些 脚本并看看服务器是否能正确的处理它们
1)创建用来存入mod_perl 脚本的 目录
#cd ServerRoot
#mkdir lib lib/perl lib/perl/Apache
2)在apache的conf/ 目录中,创建名为startup.pl的文件,以作为启动mod_perl的指令
#!/usr/bin/perl
BEGIN{
use Apache();
use lib Apache->server_root_relative('lib/perl');
}
use Apache::Registry();
use Apache::Constants();
use CGI qw(-compile :all);
use CGI::Carp;
3)创建 测试用的lib/perl/Apache/HelloWorld.pm文件
package Apache::Helloworld;
use strict;
use Apache::Constants qw(:common);
sub handler{
my $r = shift;
$r->content_type('text/plain; charset=ISO-8859-1');
$r->send_http_header;
$r->print("Hello, world! Love, mod_perl./n");
return OK;
}
1;
4)编辑服务器的配置文件以加入指令让mod_perl找出所要的文件,并告诉mod_perl何时调用 测试 脚本。加下面 内容到httpd.conf
<IfModule mod_perl.c>
PerlRequire conf/startup.pl
<Location /mod_perl/howdy>
SetHandler per-script
PerlHandler Apache::HelloWorld
</Location>
<IfModule>
5)重启Apache
6)访问 脚本 http://localhost/mod_perl/howdy
如果访问正确则出现Hello.....的输出
.安装
$ perl Makefile.PL /
USE_APXS=1 /
WITH_APXS=/usr/local/apache/bin/apx /
EVERYTHING=1 /
PERL_USELARGEFILES=0
$make
$make install
.测试
修改httpd.conf文件,加入一些 脚本并看看服务器是否能正确的处理它们
1)创建用来存入mod_perl 脚本的 目录
#cd ServerRoot
#mkdir lib lib/perl lib/perl/Apache
2)在apache的conf/ 目录中,创建名为startup.pl的文件,以作为启动mod_perl的指令
#!/usr/bin/perl
BEGIN{
use Apache();
use lib Apache->server_root_relative('lib/perl');
}
use Apache::Registry();
use Apache::Constants();
use CGI qw(-compile :all);
use CGI::Carp;
3)创建 测试用的lib/perl/Apache/HelloWorld.pm文件
package Apache::Helloworld;
use strict;
use Apache::Constants qw(:common);
sub handler{
my $r = shift;
$r->content_type('text/plain; charset=ISO-8859-1');
$r->send_http_header;
$r->print("Hello, world! Love, mod_perl./n");
return OK;
}
1;
4)编辑服务器的配置文件以加入指令让mod_perl找出所要的文件,并告诉mod_perl何时调用 测试 脚本。加下面 内容到httpd.conf
<IfModule mod_perl.c>
PerlRequire conf/startup.pl
<Location /mod_perl/howdy>
SetHandler per-script
PerlHandler Apache::HelloWorld
</Location>
<IfModule>
5)重启Apache
6)访问 脚本 http://localhost/mod_perl/howdy
如果访问正确则出现Hello.....的输出