不錯(cuò)的mod_perl編程的簡(jiǎn)單應(yīng)用實(shí)例介紹
2020-10-31 15:21:19
供稿：網(wǎng)友
介紹性指南
mod_perl 是個(gè)龐大而復(fù)雜的工具，它內(nèi)建了許多模塊幫助你方便地構(gòu)建動(dòng)態(tài)網(wǎng)站。這篇指南的目的是幫助你構(gòu)建一個(gè)良好的 mod_perl 模塊，并從中理解 mod_perl 的實(shí)現(xiàn)技術(shù)。我并不推薦使用這里介紹的技術(shù)來建立一個(gè)大型站點(diǎn)，尤其對(duì)于一個(gè)剛剛涉足 mod_perl 的人來說。但我推薦大家可以深入看一下它的一些內(nèi)建的方案，比如 Mason, AxKit, EmbPerl, Apache::ASP 和 PageKit 等等。
你需要什么?
本指南假設(shè)你已經(jīng)有過安裝和測(cè)試 mod_perl 的經(jīng)驗(yàn)。以及較新版本的 Apache 的安裝經(jīng)驗(yàn)。因?yàn)橛锌赡苣阈枰谀愕臋C(jī)器上實(shí)現(xiàn)時(shí)適當(dāng)?shù)男薷谋疚奶峁┑呐渲?。我們需要你安裝一些模塊并且需要進(jìn)入 Apache 的配置目錄作修改。所以最好你有 root 權(quán)限來做這些事情。當(dāng)然你還需要一個(gè)文本編輯器。
切入正題
mod_perl 模塊也是 Perl 模塊，但它有較為特別的設(shè)計(jì)。最方便的創(chuàng)建一個(gè) Perl 模塊的方法就是使用標(biāo)準(zhǔn)的 Perl 分發(fā)自帶的工具 h2xs 。你可以在命令行模式鍵入 h2xs 來看看它的參數(shù)列表?，F(xiàn)在，到一個(gè)適當(dāng)?shù)哪夸涢_始一個(gè)新項(xiàng)目，鍵入:h2xs -AX -n Apache::Tutorial::Firsth2xs 將會(huì)創(chuàng)建目錄 Apache,以及其他一些子目錄.現(xiàn)在進(jìn)入最深一級(jí)的目錄看看:cd Apache/Tutorial/First在這個(gè)新目錄里面，你可以看到 6 個(gè)文件: README, Changes, First.pm, MANIFEST, Makefile.PL 和 Apache-Tutorial-First.t。它們的作用如下:
README
這個(gè)文件包含一些安裝信息，模塊依賴性，版權(quán)信息等
Changes
這個(gè)文件作為你的項(xiàng)目的修改日志（changelog）文件
First.pm
這是主模塊文件，包含你的 mod_perl 句柄代碼（handler code）。
MANIFEST
本文件用于自動(dòng)構(gòu)建 tar.gz 類型的模塊版本分發(fā)。這樣你就可以把你的模塊拿到 CPAN 發(fā)布或者分發(fā)給其他人。它包含了你在這個(gè)項(xiàng)目中所有文件的列表。
Makefile.PL
這是標(biāo)準(zhǔn)的 Perl Makefile 構(gòu)造器。用于創(chuàng)建 Makefile.PL 文件來編譯該模塊。
Apache-Tutorial-First.t
針對(duì)該模塊的一些測(cè)試腳本。默認(rèn)情況下它只是檢查模塊的載入，你可以添加一些新的測(cè)試單元。好了，現(xiàn)在我們開始把First.pm變?yōu)榭晒ぷ鞯膍od_perl模塊。使用文本編輯器打開該文件，修改后的內(nèi)容如下:
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;”，對(duì)于Perl來說，一個(gè)模塊最后返回的非零值表示該模塊已經(jīng)被成功編譯。
安裝你的模塊
h2xs 工具使我們的模塊安裝工作極為方便。在和你的 First.pm 文件相同的目錄中。鍵入:
perl Makefile.PL
make
make test如果 make test 成功的話，你需要以 root 身份執(zhí)行:
make install這樣你就把你的模塊安裝到了 perl 的庫(kù)目錄（library directory）。
添加該模塊為 Apache 的一個(gè)句柄（handler）
現(xiàn)在我們需要進(jìn)入 Apache 配置目錄來修改配置文件，使我們的模塊作為 Apache 內(nèi)容處理階段的處理器。打開 httpd.conf 文件，在末尾加入如下配置:
<Location /mod_perl_tutorial>
SetHandler perl-script
PerlHandler Apache::Tutorial::First
然后保存配置文件，并且重新啟動(dòng) apache 服務(wù)器:
apachectl stop
apachectl start現(xiàn)在使用瀏覽器訪問http://localhost/mod_perl_tutorial，你將如期的看到顯示 “Hello World” 頁(yè)面。
當(dāng) Apache 啟動(dòng)的時(shí)候，它讀取它的配置指令并把適當(dāng)?shù)拿顐鬟f給相應(yīng)的處理該命令的模塊。這里有兩個(gè)相關(guān)的指令 SetHandler 和 PerlHandler。
第一個(gè)指令 SetHandler 由 mod_mime 模塊處理，該指令表示使用什么模塊作為處理請(qǐng)求的主要部分。這里所設(shè)置的perl-script 表示使用 mod_perl 來處理請(qǐng)求。
第二個(gè)指令PerlHandler由mod_perl模塊來處理，它只是簡(jiǎn)單的說明使用我們的模塊來處理請(qǐng)求的主要部分。有一點(diǎn)需要注意，無(wú)論何時(shí)在你有一個(gè) PerlHandler 時(shí)，你需要相應(yīng)的 SetHandler perl-script 配置指令。這樣才能使你的 mod_perl 代碼起作用。我總是認(rèn)為這是一個(gè)弱點(diǎn)，但這將涉及 Apache 內(nèi)部的處理機(jī)制，所以在將來這也很難改變。
現(xiàn)在請(qǐng)求來了，Apache 查看用什么模塊來處理相應(yīng)的 URI 并且在這里決定使用 mod_perl，而 mod_perl 知道它必須把請(qǐng)求發(fā)送給我們的模塊，并調(diào)用我們模塊的 handler() 函數(shù)作為 Apache::Request 對(duì)象的第一個(gè)參數(shù)。而我們的 handler() 函數(shù)的返回值決定了下一步 Apache 將要做什么?，F(xiàn)在我們知道返回值 OK 意味著一切成功。 OK是個(gè)從Apache::Constants 模塊導(dǎo)出的常量。
調(diào)試
如果你沒有看到 “Hello World”, 那你可能看到了一個(gè)錯(cuò)誤頁(yè)面，或者其他什么完全不同的。第一步去查看錯(cuò)誤日志看看到底是什么發(fā)生了錯(cuò)誤。我習(xí)慣于在瀏覽器中請(qǐng)求后立即查看錯(cuò)誤日志。你可以使用 tail 工具:tail -f /path/to/apache/logs/error_log(使用你的真實(shí) error_log 路徑替換上面的路徑。如果你不肯定它在哪里，查看你的 httpd.conf 文件的 ErrorLog 指令部分)
現(xiàn)在重新載入頁(yè)面，然后 error_log 將告訴你什么地方出現(xiàn)了問題。更多的關(guān)于 perl 調(diào)試，請(qǐng)參見 perldebug.
加入更多
現(xiàn)在如果你想要針對(duì)上面的情況作一些修改，該如何做呢？不幸的，唯一一種安裝模式如下:
修改你的 First.pm 文件
重新以 root 身份運(yùn)行 make install
重新啟動(dòng) Apache
這也許很麻煩，特別是重新啟動(dòng) Apache。針對(duì)這個(gè)問題，我們可以另外安裝一個(gè)特別設(shè)計(jì)的模塊來避免每次這樣麻煩的做。首先你需要從 CPAN 下載并安裝 Apache::Reload 模塊（除非你已經(jīng)使用 mod_perl 1.26 或者更高版本）。在這里 http://search.cpan.org/search?dist=Apache-Reload 下載。
解開 tar.gz 文件并進(jìn)入新目錄，執(zhí)行:
perl Makefile.PL
make然后到 root 身份執(zhí)行:
make install現(xiàn)在再次打開 httpd.conf 文件，加入:
PerlInitHandler Apache::Reload這將測(cè)試所有有所改變的模塊并在必要時(shí)自動(dòng)重新載入新模塊。這對(duì)于開發(fā)來說很有用，但會(huì)有性能損失，所以在開發(fā)完成之后，就將該特性關(guān)閉。
閱讀更多
從這里開始你有很多事情需要去做。Apache API 本身就十分龐大，大多數(shù)都可以通過 perldoc Apache 看到相應(yīng)的文檔. 現(xiàn)在這個(gè)模塊基本上沒有什么價(jià)值，因?yàn)橹挥幸粋€(gè) URI 可以用于被該模塊所控制（http://server/mod_perl_tutorial），這使得它變得不夠靈活。為了使一個(gè)模塊可以處理多個(gè) URI ，有許多解決辦法，但最好的還是推薦使用 Apache::Dispatch 模塊。
可以在 CPAN 下載 http://search.cpan.org/search?dist=Apache-Dispatch. Apache::Dispatch 允許你保留標(biāo)準(zhǔn)的 mod_perl handler構(gòu)架，同時(shí)還允許多個(gè)函數(shù)和多個(gè)URIs 被派發(fā)。
接下來我不建議象例子中一樣直接向?yàn)g覽器輸出內(nèi)容。請(qǐng)考慮使用一些常用的模版技術(shù)，比如 Template-Toolkit, HTML::Template, 更甚于使用 XSLT 或者 XPathScript （有很多很多這樣的模版技術(shù)可選，我們希望有一天可以有文章來討論這些技術(shù)來幫助你來選擇）。
