IDC资讯中心
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
print$form->startform;
##产生一个单行输入栏位(textfield)
print姓名：;
print$form->textfield(name),”
\n”;
##产生一组单选按纽(radiobuttons)
您住哪儿：
;
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处。
您看，不是很容易吗？
