不錯的mod_perl編程的簡單應用實例介紹
2020-10-31 15:21:19
供稿：網友
介紹性指南
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 來看看它的參數列表?，F在，到一個適當的目錄開始一個新項目，鍵入: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 將要做什么?，F在我們知道返回值 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 （有很多很多這樣的模版技術可選，我們希望有一天可以有文章來討論這些技術來幫助你來選擇）。
