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

2019-11-18 17:23:34

字体：大中小

来源：转载

供稿：网友

　
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处。

您看，不是很容易吗？

上一篇：PerlCGI程式写作常问问题集(3)CGI与WWWServer

下一篇：PerlCGI程式写作常问问题集(1)入门简介