一个最标准的 modperl 脚本可能是这样的：
package Apache2::F_H1;use Apache2::RequestRec;
use Apache2::RequestIO;
use Apache2::Const -compile => qw(OK); sub handler {
my $r = shift;
$r->content_type("text/html");
$r->print("Hello World!");
return Apache2::Const::OK;
} 1;
然后在 perl.conf 或 httpd.conf 里写：
<Perl>
use lib "E:/modperl";
</Perl>PerlModule Apache2::F_H1
<Location /h1>
SetHandler perl-script
PerlResponseHandler Apache2::F_H1
</Location>
简单的解释下代码：
- Apache2::RequestRec 用于处理请求，这里用到了它的 content_type
- Apache2::RequestIO 则用于输入输出，这里用到了它的 print
- use Apache2::Const -compile => qw(OK); 则定义一些常量，这里是用到了 Apache2::Const::OK
- my $r = shift; 这个和 Catalyst 中程序第一句 my ( $self, $c ) = @_; 的 $c 很类似。几乎所有的 modperl 提交给 PerlResponseHandler 或其他 Perl*Handler 时，子程序第一句就必定应当是这句。
- 注意 1; 没有这个的话，Apache 很可能启动不起来。
而 sub handler 跟 Catalyst 中 View::TT 默认的 process 一样。如果没有指定其它的话，默认就是 handler.
当然我们也可以改变这个名字，如下面这样：
package Apache2::F_H2;sub kissme {
my $r = shift;
$r->content_type("text/html");
$r->print("Hello World!");
return Apache2::Const::OK;
} 1; 这样我们可以在 perl.conf 里这么写：
PerlModule Apache2::F_H2
<Location /h2>
SetHandler modperl
PerlResponseHandler Apache2::F_H2::kissme
</Location> Handler 时指定了 kissme. 而这里没有那三个 use Apache2::*; 也能正常运行是因为 perl.conf 里 PerlRequire "C:/Apache2/conf/startup.pl", 且 startup.pl 载入了这一系列模块（包括这三）。
而 SetHandler 为什么即可以用 perl-script 又可以用 modperl 则参考 mod_perl 配置的一些指令. 这就是我们最简单的 Hello, World! 至此，我们可以访问 http://localhost/h2 或 h1 来享受我们的成果。
|
收 藏
投 稿
繁 体
RSS 
欢迎在本站发布信息，在线投递稿件
我要投稿
打印本文
推荐本文
加入收藏
返回顶部
关闭窗口
