PerlCGI程式写作常问问题集(2)Modules(模组)

3/5/2006来源:Perl教程人气:7531


 
2.0-Modules(模组)

--------------------------------------------------------------------------------

Q2.1:我是不是该用PerlCGImodules*来写CGIscripts?自己做不是比较容易吗?
【译者】CGImodules在此指CGI.pm及其他CGI::*的模组;详见Q2.4。

这完全取决於您要做的是什麽。CGImodules较适合重量级的CGIscripts。如果是简单的scripts的话,自己做或者是用CGILite这个模组会简便许多。如果您真的愿意,您甚至可以用旧的Perl4cgi-lib.pl这个library*。

【译注】作者TomC.之所以这麽说是因为他基本上不赞成使用cgi-lib.pl,有兴趣的读者可以看他写的WhyIamnotfondofcgi-lib.pl(为什麽我不欣赏cgi-lib.pl)。


--------------------------------------------------------------------------------

Q2.2:如何知道某个module该怎麽个用法?
大多数modules的使用说明是直接嵌在程式里的*。如果是这样的话,您可以用pod2man这个script来阅读使用指南:

pod2textname_of_module.pm
pod2manname_of_module.pm|nroff-man|more

【译注】如果您在*.pm档中看到``=head1''、``=cut''这类的东西便是显示使用说明有附在里头。这是LarryWall设计的POD(PlainOldDocument)格式。详见perlpodmanpages。


--------------------------------------------------------------------------------

Q2.3:有哪些Perl4的CGI或WWW的libraries?
最广为使用的Perl4CGIlibrary是SteveBrenner的cgi-lib.pl。



--------------------------------------------------------------------------------

Q2.4:有哪些给Perl5使用的CGImodules?我该用哪个?为什麽?
CGI.pm*
这个很棒的module在功能上和部分CGI::*modules相重叠。如果您不想和多重modules打交道的话,您可以只用这一个。我们等一下在後头会给您看一个用CGI.pm来替CGIscripts除错的实例。
此外,Lincoln(LincolnStein;CGI.pm的作者)还写了一本讨论Web和CGI非常好的书,叫HowToSetUpandMaintainaWorldWideWebSite。

【译者】建议读者多使用CGI.pm。CGI::*已经有很长一段时间没有更新了,而CGI.pm则不断的有改良的新版推出,并已加入对FastCGI的支援,因此对FastCGI的使用者也相当方便。此外,mod_perl(Apache的perlmodule)中所附的CGI::XA,也是由CGI.pm改进而来的。CGI.pm让使用者免除自己做低阶资料处理(如印HTTP标头、替form,cookies资料解码等)的麻烦。

CGI::*模组套件
这些模组原先大多是由TimBunce所写,现在则由LincolnStein来负责维护。它们的功能包括了帮您产生及处理form,替CGI程式除错,以及在不同的forms之间维系一个状态值。
CGILite
这个轻量级的module是CGI::*modules之外的另一个选择。它可算是在老旧的cgi-lib.pl之上改良、加料後的产物。
以上叁者均有能力处理multipartform资料(即上传)。


--------------------------------------------------------------------------------

Q2.5:为什麽这麽多perlCGIlibraries都是object-oriented(物件导向)的?我对用物件导向来写程式一窍不通。难道就没有简单一点,给不会物件导向的人使用的libraries吗?物件导向有多难?
其实使用物件导向的modules并不难。先去看看TomChristiansen的EasyIntrotoUsingPerlObjects(简单介绍如何使用Perl物件)吧。

前头提到的CGImodules用起来真的是很容易!这里有一个用CGILite印出form资料的实例*:

【译者】CGI.pm的使用说明中有更多范例可供参考。

#!/usr/local/bin/perl-w

useCGI_Lite;

$cgi=newCGI_Lite;
趖a=$cgi->parse_form_data;

PRint"Content-type:text/plain","\n\n";

foreach$key(keys趖a){
print$key,"=",$data{$key},"\n";
}

exit0;

要注意的是,即使您机器上的Perl不是您装的(您不是系统管理者),或是您权限不够无法将这些modules和其他的Perllibrary档案安装在同一个地方,您还是可以使用这些modules的--只要将它们摆在一个自己方便的地方,然後在您的script开始处加上*:

BEGIN{
unshift@INC,"/your/dir/favorite/place";
}

【译者】建议改用较新的方式:

uselibqw(/your/dir/favorite/place);

好。以下是一个用到CGI::*modules的例子:

#!/usr/local/bin/perl-w

useCGI::Form;

$cgi_form=newCGI::Form;

print<<'End_of_Header';

看着我做!

看着我做!


End_of_Header

print$form->startform;

##产生一个单行输入栏位(textfield)

print'姓名:';
print$form->textfield('name'),"
\n";

##产生一组单选按纽(radiobuttons)

print'

您住哪儿:
';
print$form->radio_group(-name=>'where',
-values=>['北美洲',
'南美洲',
'欧洲',
'澳洲',
'亚洲',
'南极洲'],
-default=>'北美洲',
-linebreak=>'true');

##产生一个多行输入栏位(textarea)

print'意见:';
print$form->textarea('comments',undef,5,40);

print"

";
print$form->reset;
print$form->defaults;
print$form->submit('送出!','Submit');
print$form->endform;

print"";

reset、defaults,及submit叁种方法(methods)会产生不同的类型的按钮。reset这个按钮让您把目前form栏位中所填的资料洗掉,并显示属於上一个状态(或回合)的资料。defaults这个按钮则是将form栏位资料彻底洗去。还有submit这个方法产生一个送出钮以便让人将资料送至server处。

您看,不是很容易吗?