perl編程的簡(jiǎn)單應(yīng)用的實(shí)例詳解

2020-02-23 19:45:08

字體：大中小

供稿：網(wǎng)友

Perl是一種非常強(qiáng)大的腳本語言，廣泛應(yīng)用于系統(tǒng)維護(hù)、CGI、數(shù)據(jù)庫編程等領(lǐng)域，今天武林技術(shù)頻道小編為大家?guī)砹藀erl編程的簡(jiǎn)單應(yīng)用的實(shí)例詳解，希望對(duì)你學(xué)習(xí)Perl知識(shí)有所幫助！

介紹性指南?
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ù)男薷谋疚奶峁┑呐渲谩Ｎ覀冃枰惆惭b一些模塊并且需要進(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ù)列表。現(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?的庫目錄（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”?頁面。?
當(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)需要注意，無論何時(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?將要做什么。現(xiàn)在我們知道返回值?OK?意味著一切成功。?OK是個(gè)從Apache::Constants?模塊導(dǎo)出的常量。
調(diào)試?
如果你沒有看到?“Hello?World”,?那你可能看到了一個(gè)錯(cuò)誤頁面，或者其他什么完全不同的。第一步去查看錯(cuò)誤日志看看到底是什么發(fā)生了錯(cuò)誤。我習(xí)慣于在瀏覽器中請(qǐng)求后立即查看錯(cuò)誤日志。你可以使用?tail?工具:tail?-f?/path/to/apache/logs/error_log(使用你的真實(shí)?error_log?路徑替換上面的路徑。如果你不肯定它在哪里，查看你的?httpd.conf?文件的?ErrorLog?指令部分)?
現(xiàn)在重新載入頁面，然后?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ā)。?