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程序。

我这里没有试。