介绍性指南
mod_perl 是个庞大而复杂的工具，它内建了许多模块帮助你方便地构建动态网站。这篇指南的目的是帮助你构建一个良好的 mod_perl 模块，并从中理解 mod_perl 的实现技术。我并不推荐使用这里介绍的技术来建立一个大型站点，尤其对于一个刚刚涉足 mod_perl 的人来说。但我推荐大家可以深入看一下它的一些内建的方案，比如 Mason, AxKit, EmbPerl, Apache::ASP 和 PageKit 等等。
你需要什么?
本指南假设你已经有过安装和测试 mod_perl 的经验。以及较新版本的 Apache 的安装经验。因为有可能你需要在你的机器上实现时适当的修改本文提供的配置。我们需要你安装一些模块并且需要进入 Apache 的配置目录作修改。所以最好你有 root 权限来做这些事情。当然你还需要一个文本编辑器。
切入正题
mod_perl 模块也是 Perl 模块，但它有较为特别的设计。最方便的创建一个 Perl 模块的方法就是使用标准的 Perl 分发自带的工具 h2xs 。你可以在命令行模式键入 h2xs 来看看它的参数列表。现在，到一个适当的目录开始一个新项目，键入:h2xs -AX -n Apache::Tutorial::Firsth2xs 将会创建目录 Apache,以及其他一些子目录.现在进入最深一级的目录看看:cd Apache/Tutorial/First在这个新目录里面，你可以看到 6 个文件: README, Changes, First.pm, MANIFEST, Makefile.PL 和 Apache-Tutorial-First.t。它们的作用如下:
README
这个文件包含一些安装信息，模块依赖性，版权信息等
Changes
这个文件作为你的项目的修改日志（changelog）文件
First.pm
这是主模块文件，包含你的 mod_perl 句柄代码（handler code）。
MANIFEST
本文件用于自动构建 tar.gz 类型的模块版本分发。这样你就可以把你的模块拿到 CPAN 发布或者分发给其他人。它包含了你在这个项目中所有文件的列表。
Makefile.PL
这是标准的 Perl Makefile 构造器。用于创建 Makefile.PL 文件来编译该模块。
Apache-Tutorial-First.t
针对该模块的一些测试脚本。默认情况下它只是检查模块的载入，你可以添加一些新的测试单元。好了，现在我们开始把First.pm变为可工作的mod_perl模块。使用文本编辑器打开该文件，修改后的内容如下:
package Apache::Tutorial::First;
use strict;
use vars qw/$VERSION/;
use Apache::Constants;
$VERSION = 0.01;
sub handler {
my $r = shift;
$r->send_http_header('text/html');
print
"<html><body>Hello World</body></html>";
return OK;
}
1;
不要忘记文件末尾的”1;”，对于Perl来说，一个模块最后返回的非零值表示该模块已经被成功编译。
安装你的模块
h2xs 工具使我们的模块安装工作极为方便。在和你的 First.pm 文件相同的目录中。键入:
perl Makefile.PL
make
make test如果 make test 成功的话，你需要以 root 身份执行:
make install这样你就把你的模块安装到了 perl 的库目录（library directory）。
添加该模块为 Apache 的一个句柄（handler）
现在我们需要进入 Apache 配置目录来修改配置文件，使我们的模块作为 Apache 内容处理阶段的处理器。打开 httpd.conf 文件，在末尾加入如下配置:
<Location /mod_perl_tutorial>
SetHandler perl-script
PerlHandler Apache::Tutorial::First
然后保存配置文件，并且重新启动 apache 服务器:
apachectl stop
apachectl start现在使用浏览器访问http://localhost/mod_perl_tutorial，你将如期的看到显示 “Hello World” 页面。
当 Apache 启动的时候，它读取它的配置指令并把适当的命令传递给相应的处理该命令的模块。这里有两个相关的指令 SetHandler 和 PerlHandler。
第一个指令 SetHandler 由 mod_mime 模块处理，该指令表示使用什么模块作为处理请求的主要部分。这里所设置的perl-script 表示使用 mod_perl 来处理请求。
第二个指令PerlHandler由mod_perl模块来处理，它只是简单的说明使用我们的模块来处理请求的主要部分。有一点需要注意，无论何时在你有一个 PerlHandler 时，你需要相应的 SetHandler perl-script 配置指令。这样才能使你的 mod_perl 代码起作用。我总是认为这是一个弱点，但这将涉及 Apache 内部的处理机制，所以在将来这也很难改变。
现在请求来了，Apache 查看用什么模块来处理相应的 URI 并且在这里决定使用 mod_perl，而 mod_perl 知道它必须把请求发送给我们的模块，并调用我们模块的 handler() 函数作为 Apache::Request 对象的第一个参数。而我们的 handler() 函数的返回值决定了下一步 Apache 将要做什么。现在我们知道返回值 OK 意味着一切成功。 OK是个从Apache::Constants 模块导出的常量。
调试
如果你没有看到 “Hello World”, 那你可能看到了一个错误页面，或者其他什么完全不同的。第一步去查看错误日志看看到底是什么发生了错误。我习惯于在浏览器中请求后立即查看错误日志。你可以使用 tail 工具:tail -f /path/to/apache/logs/error_log(使用你的真实 error_log 路径替换上面的路径。如果你不肯定它在哪里，查看你的 httpd.conf 文件的 ErrorLog 指令部分)
现在重新载入页面，然后 error_log 将告诉你什么地方出现了问题。更多的关于 perl 调试，请参见 perldebug.
加入更多
现在如果你想要针对上面的情况作一些修改，该如何做呢？不幸的，唯一一种安装模式如下:
修改你的 First.pm 文件
重新以 root 身份运行 make install
重新启动 Apache
这也许很麻烦，特别是重新启动 Apache。针对这个问题，我们可以另外安装一个特别设计的模块来避免每次这样麻烦的做。首先你需要从 CPAN 下载并安装 Apache::Reload 模块（除非你已经使用 mod_perl 1.26 或者更高版本）。在这里 http://search.cpan.org/search?dist=Apache-Reload 下载。
解开 tar.gz 文件并进入新目录，执行:
perl Makefile.PL
make然后到 root 身份执行:
make install现在再次打开 httpd.conf 文件，加入:
PerlInitHandler Apache::Reload这将测试所有有所改变的模块并在必要时自动重新载入新模块。这对于开发来说很有用，但会有性能损失，所以在开发完成之后，就将该特性关闭。
阅读更多
从这里开始你有很多事情需要去做。Apache API 本身就十分庞大，大多数都可以通过 perldoc Apache 看到相应的文档. 现在这个模块基本上没有什么价值，因为只有一个 URI 可以用于被该模块所控制（http://server/mod_perl_tutorial），这使得它变得不够灵活。为了使一个模块可以处理多个 URI ，有许多解决办法，但最好的还是推荐使用 Apache::Dispatch 模块。
可以在 CPAN 下载 http://search.cpan.org/search?dist=Apache-Dispatch. Apache::Dispatch 允许你保留标准的 mod_perl handler构架，同时还允许多个函数和多个URIs 被派发。
接下来我不建议象例子中一样直接向浏览器输出内容。请考虑使用一些常用的模版技术，比如 Template-Toolkit, HTML::Template, 更甚于使用 XSLT 或者 XPathScript （有很多很多这样的模版技术可选，我们希望有一天可以有文章来讨论这些技术来帮助你来选择）。
mod_perl 是个庞大而复杂的工具，它内建了许多模块帮助你方便地构建动态网站。这篇指南的目的是帮助你构建一个良好的 mod_perl 模块，并从中理解 mod_perl 的实现技术。我并不推荐使用这里介绍的技术来建立一个大型站点，尤其对于一个刚刚涉足 mod_perl 的人来说。但我推荐大家可以深入看一下它的一些内建的方案，比如 Mason, AxKit, EmbPerl, Apache::ASP 和 PageKit 等等。
你需要什么?
本指南假设你已经有过安装和测试 mod_perl 的经验。以及较新版本的 Apache 的安装经验。因为有可能你需要在你的机器上实现时适当的修改本文提供的配置。我们需要你安装一些模块并且需要进入 Apache 的配置目录作修改。所以最好你有 root 权限来做这些事情。当然你还需要一个文本编辑器。
切入正题
mod_perl 模块也是 Perl 模块，但它有较为特别的设计。最方便的创建一个 Perl 模块的方法就是使用标准的 Perl 分发自带的工具 h2xs 。你可以在命令行模式键入 h2xs 来看看它的参数列表。现在，到一个适当的目录开始一个新项目，键入:h2xs -AX -n Apache::Tutorial::Firsth2xs 将会创建目录 Apache,以及其他一些子目录.现在进入最深一级的目录看看:cd Apache/Tutorial/First在这个新目录里面，你可以看到 6 个文件: README, Changes, First.pm, MANIFEST, Makefile.PL 和 Apache-Tutorial-First.t。它们的作用如下:
README
这个文件包含一些安装信息，模块依赖性，版权信息等
Changes
这个文件作为你的项目的修改日志（changelog）文件
First.pm
这是主模块文件，包含你的 mod_perl 句柄代码（handler code）。
MANIFEST
本文件用于自动构建 tar.gz 类型的模块版本分发。这样你就可以把你的模块拿到 CPAN 发布或者分发给其他人。它包含了你在这个项目中所有文件的列表。
Makefile.PL
这是标准的 Perl Makefile 构造器。用于创建 Makefile.PL 文件来编译该模块。
Apache-Tutorial-First.t
针对该模块的一些测试脚本。默认情况下它只是检查模块的载入，你可以添加一些新的测试单元。好了，现在我们开始把First.pm变为可工作的mod_perl模块。使用文本编辑器打开该文件，修改后的内容如下:
package Apache::Tutorial::First;
use strict;
use vars qw/$VERSION/;
use Apache::Constants;
$VERSION = 0.01;
sub handler {
my $r = shift;
$r->send_http_header('text/html');
"<html><body>Hello World</body></html>";
return OK;
}
1;
不要忘记文件末尾的”1;”，对于Perl来说，一个模块最后返回的非零值表示该模块已经被成功编译。
安装你的模块
h2xs 工具使我们的模块安装工作极为方便。在和你的 First.pm 文件相同的目录中。键入:
perl Makefile.PL
make
make test如果 make test 成功的话，你需要以 root 身份执行:
make install这样你就把你的模块安装到了 perl 的库目录（library directory）。
添加该模块为 Apache 的一个句柄（handler）
现在我们需要进入 Apache 配置目录来修改配置文件，使我们的模块作为 Apache 内容处理阶段的处理器。打开 httpd.conf 文件，在末尾加入如下配置:
<Location /mod_perl_tutorial>
SetHandler perl-script
PerlHandler Apache::Tutorial::First
然后保存配置文件，并且重新启动 apache 服务器:
apachectl stop
apachectl start现在使用浏览器访问http://localhost/mod_perl_tutorial，你将如期的看到显示 “Hello World” 页面。
当 Apache 启动的时候，它读取它的配置指令并把适当的命令传递给相应的处理该命令的模块。这里有两个相关的指令 SetHandler 和 PerlHandler。
第一个指令 SetHandler 由 mod_mime 模块处理，该指令表示使用什么模块作为处理请求的主要部分。这里所设置的perl-script 表示使用 mod_perl 来处理请求。
第二个指令PerlHandler由mod_perl模块来处理，它只是简单的说明使用我们的模块来处理请求的主要部分。有一点需要注意，无论何时在你有一个 PerlHandler 时，你需要相应的 SetHandler perl-script 配置指令。这样才能使你的 mod_perl 代码起作用。我总是认为这是一个弱点，但这将涉及 Apache 内部的处理机制，所以在将来这也很难改变。
现在请求来了，Apache 查看用什么模块来处理相应的 URI 并且在这里决定使用 mod_perl，而 mod_perl 知道它必须把请求发送给我们的模块，并调用我们模块的 handler() 函数作为 Apache::Request 对象的第一个参数。而我们的 handler() 函数的返回值决定了下一步 Apache 将要做什么。现在我们知道返回值 OK 意味着一切成功。 OK是个从Apache::Constants 模块导出的常量。
调试
如果你没有看到 “Hello World”, 那你可能看到了一个错误页面，或者其他什么完全不同的。第一步去查看错误日志看看到底是什么发生了错误。我习惯于在浏览器中请求后立即查看错误日志。你可以使用 tail 工具:tail -f /path/to/apache/logs/error_log(使用你的真实 error_log 路径替换上面的路径。如果你不肯定它在哪里，查看你的 httpd.conf 文件的 ErrorLog 指令部分)
现在重新载入页面，然后 error_log 将告诉你什么地方出现了问题。更多的关于 perl 调试，请参见 perldebug.
加入更多
现在如果你想要针对上面的情况作一些修改，该如何做呢？不幸的，唯一一种安装模式如下:
修改你的 First.pm 文件
重新以 root 身份运行 make install
重新启动 Apache
这也许很麻烦，特别是重新启动 Apache。针对这个问题，我们可以另外安装一个特别设计的模块来避免每次这样麻烦的做。首先你需要从 CPAN 下载并安装 Apache::Reload 模块（除非你已经使用 mod_perl 1.26 或者更高版本）。在这里 http://search.cpan.org/search?dist=Apache-Reload 下载。
解开 tar.gz 文件并进入新目录，执行:
perl Makefile.PL
make然后到 root 身份执行:
make install现在再次打开 httpd.conf 文件，加入:
PerlInitHandler Apache::Reload这将测试所有有所改变的模块并在必要时自动重新载入新模块。这对于开发来说很有用，但会有性能损失，所以在开发完成之后，就将该特性关闭。
阅读更多
从这里开始你有很多事情需要去做。Apache API 本身就十分庞大，大多数都可以通过 perldoc Apache 看到相应的文档. 现在这个模块基本上没有什么价值，因为只有一个 URI 可以用于被该模块所控制（http://server/mod_perl_tutorial），这使得它变得不够灵活。为了使一个模块可以处理多个 URI ，有许多解决办法，但最好的还是推荐使用 Apache::Dispatch 模块。
可以在 CPAN 下载 http://search.cpan.org/search?dist=Apache-Dispatch. Apache::Dispatch 允许你保留标准的 mod_perl handler构架，同时还允许多个函数和多个URIs 被派发。
接下来我不建议象例子中一样直接向浏览器输出内容。请考虑使用一些常用的模版技术，比如 Template-Toolkit, HTML::Template, 更甚于使用 XSLT 或者 XPathScript （有很多很多这样的模版技术可选，我们希望有一天可以有文章来讨论这些技术来帮助你来选择）。
免责声明：本站文章均来自网站采集或用户投稿，网站不提供任何软件下载或自行开发的软件！
如有用户或公司发现本站内容信息存在侵权行为，请邮件告知！ 858582#qq.com
暂无“不错的mod_perl编程的简单应用实例介绍”评论...
《魔兽世界》大逃杀！60人新游玩模式《强袭风暴》3月21日上线
暴雪近日发布了《魔兽世界》10.2.6 更新内容，新游玩模式《强袭风暴》即将于3月21 日在亚服上线，届时玩家将前往阿拉希高地展开一场 60 人大逃杀对战。
艾泽拉斯的冒险者已经征服了艾泽拉斯的大地及遥远的彼岸。他们在对抗世界上最致命的敌人时展现出过人的手腕，并且成功阻止终结宇宙等级的威胁。当他们在为即将于《魔兽世界》资料片《地心之战》中来袭的萨拉塔斯势力做战斗准备时，他们还需要在熟悉的阿拉希高地面对一个全新的敌人──那就是彼此。在《巨龙崛起》10.2.6 更新的《强袭风暴》中，玩家将会进入一个全新的海盗主题大逃杀式限时活动，其中包含极高的风险和史诗级的奖励。
《强袭风暴》不是普通的战场，作为一个独立于主游戏之外的活动，玩家可以用大逃杀的风格来体验《魔兽世界》，不分职业、不分装备（除了你在赛局中捡到的），光是技巧和战略的强弱之分就能决定出谁才是能坚持到最后的赢家。本次活动将会开放单人和双人模式，玩家在加入海盗主题的预赛大厅区域前，可以从强袭风暴角色画面新增好友。游玩游戏将可以累计名望轨迹，《巨龙崛起》和《魔兽世界：巫妖王之怒 经典版》的玩家都可以获得奖励。
更新动态
2024年11月24日
2024年11月24日
- 凤飞飞《我们的主题曲》飞跃制作[正版原抓WAV+CUE]
- 刘嘉亮《亮情歌2》[WAV+CUE][1G]
- 红馆40·谭咏麟《歌者恋歌浓情30年演唱会》3CD[低速原抓WAV+CUE][1.8G]
- 刘纬武《睡眠宝宝竖琴童谣 吉卜力工作室 白噪音安抚》[320K/MP3][193.25MB]
- 【轻音乐】曼托凡尼乐团《精选辑》2CD.1998[FLAC+CUE整轨]
- 邝美云《心中有爱》1989年香港DMIJP版1MTO东芝首版[WAV+CUE]
- 群星《情叹-发烧女声DSD》天籁女声发烧碟[WAV+CUE]
- 刘纬武《睡眠宝宝竖琴童谣 吉卜力工作室 白噪音安抚》[FLAC/分轨][748.03MB]
- 理想混蛋《Origin Sessions》[320K/MP3][37.47MB]
- 公馆青少年《我其实一点都不酷》[320K/MP3][78.78MB]
- 群星《情叹-发烧男声DSD》最值得珍藏的完美男声[WAV+CUE]
- 群星《国韵飘香·贵妃醉酒HQCD黑胶王》2CD[WAV]
- 卫兰《DAUGHTER》【低速原抓WAV+CUE】
- 公馆青少年《我其实一点都不酷》[FLAC/分轨][398.22MB]
- ZWEI《迟暮的花 (Explicit)》[320K/MP3][57.16MB]