mod_perl简单一例

首先正确安装mod_perl。我用的是 mod_perl2.0.3比较新的版本。而我看了网上很多的资料都是旧的mod_perl1.x

所以不适合我。并且，文章也大多是copy 来 copy去。不知道作者当初都动手了没有。

我的安装以前已经写过了。这里不在重复。另外，要是安装了php的话，phpinfo()里很容易可以看到mod_perl的信息。

1。配置Apache

主配文件里：

Alias /perl /home/ayla/perl

PerlModule ModPerl::Registry    #这里务必注意，因为我开始弄的时候，参考的文档是Apache::Registry,这个是旧版本里用的
<Location /perl/>
  SetHandler perl-script
  PerlResponseHandler ModPerl::Registry
  Options +ExecCGI
</Location>

2。编写一个简单的测试文件，我命名为a.cgi

if($ENV{MOD_PERL}) {
  $ModPerl2 = ($mod_perl::VERSION >= 1.99);
  my $ver = $mod_perl::VERSION;
  if ($ver eq "") { $ver = $ENV{MOD_PERL_API_VERSION}; }
  $ModPerl2 = ($ver >= 1.99);
  if($ModPerl2) {
    eval "use Apache::ASP::ApacheCommon ();";
    die($@) if $@;
  }
}

my $r = Apache2::RequestUtil->request();
$r->print("mod_perl rules!");
print $r->as_string();
print $r->default_type();

3.之后访问 http://yourIp/perl/a.cgi，看看输出吧。

 

另外：简单看了一下mod_perl的说明，说强悍的是，它可以支持最原始的CGI程序。

我这里没有试。