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 来享受我们的成果。 数据挖掘工具

[数据挖掘专家] [数据挖掘研究院] [数据挖掘论坛] [数据挖掘实验室]
上一篇:modperl Apache2::HelloWorld
下一篇:Win32 下 Apache 和 #!/usr/bin/perl
最新评论共有 0 位网友发表了评论 , 查看所有评论
发表评论( 不能超过250字,需审核,请自觉遵守互联网相关政策法规。 )
匿名?
数据挖掘网站导航 数据挖掘论坛导航
  • 数据挖掘工具
  • 数据挖掘论坛
  • DataCruncher - Cognos
  • MineSet - MathSoft
  • Intelligent Miner - GainSmarts
  • Sqlserver - SAS - Clementine
  • CART - Weka - WizSoft
  • NeuroShell - ModelQuest
  • data mining tools - Darwin
  • 数据挖掘交友
  • 数据挖掘博客
  • 数据挖掘工具
  • 数据挖掘资源
  • 数据挖掘技术算法
  • 数据挖掘相关期刊、会议
  • 研究院联盟合作专区
  • 数据挖掘基础与相关技术
  • 数据挖掘厂商与就业
  • 数据挖掘研究者乐园
  • 知名厂商数据挖掘工具资料
  • 国内数据挖掘实验室
  • Foreign Data Mining Lab
  • 热点关注
  • Perl 常用函数
  • Perl直接入门详尽指南
  • 用Perl生成随机密码
  • When perl is not quite fast enough
  • Perl简单模块指南
  • Perl DBI连接MySQL数据库
  • 我对 Catalyst 的理解和介绍
  • cgi学习简明教程
  • 我对 Catalyst 的理解和介绍
  • 如何使用strict和warnings
  • 论坛最新话题
  • Foundations of Statistical Natural Langu
  • Game Theory meet Data Mining: A Recent P
  • System Building: How does it help or hin
  • 数据挖掘与Clementine培训
  • 新手报到
  • 求 SASEM 客户流失预测分析
  • 数据挖掘工程师/搜索研究院—北京——无线
  • 数据挖掘入门介绍(如何着手数据挖掘)
  • Information Overload Survey Results
  • The INEX 2005 Workshop on Element Retrie
  • 相关资讯
    数据挖掘实验室资料
  • 数据挖掘博客地址
  • 数据挖掘实验室网站地址
  • Prepare for Medicare audits by using dat
  • 注册成为SAS用户与爱好者俱乐部会员
  • 水南梅
  • 明日烟
  • 新人报道
  • 下载
  • 厦门服务器托管,450元/月—0592-5177319 高
  • 买空间送域名--0592-5177319 高静