modperl Apache2::HelloWorld

一个最标准的 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 来享受我们的成果。