欢迎光临
我们一直在努力

中文版 Perl CGI 程式写作常问问题集(三)-CGI教程,CGI文档

建站超值云服务器,限时71元/月

q1.7: 网路上是不是有专门收藏邮递论坛或新闻讨论群组的 posts 的站?

是的,您可以试试 the usenet newstand
(<http://criticalmass.com/concord/>。
所有comp.infosystems.www.* 讨论群组的文章都收集在那儿*。同时,cgi-perl

libwww 这两个邮递论坛他们也有收集。

【译者】您同时可以试试 dejanews (<http://www.dejanews.com/> 、
altavista (<http://www.altavista.digital.com/> ,和 hotbot
(<http://www.hotbot.com/> 这几个搜寻引擎/资料库。 dejanews
(<http://www.dejanews.com/> 甚至连 tw.bbs.* 都收集(其他两个或
许也有,但译者没试过)。

—————————————————————————

2.0 – modules (模组)

—————————————————————————

q2.1: 我是不是该用 perl cgi modules* 来写 cgi scripts
?自己做不是比较容易
吗?

【译者】 cgi modules 在此指 cgi.pm 及其他 cgi::* 的模组;详见
q2.4 。

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

【译注】作者 tom c. 之所以这麽说是因为他基本上不赞成使用
cgi-lib.pl ,有兴趣的读者可以看他写的 why i am not fond of
cgi-lib.pl (<http://www.perl.com/perl/info/www/!cgi-lib.html>
(为什麽我不欣赏 cgi-lib.pl )。

—————————————————————————

q2.2: 如何知道某个 module 该怎麽个用法?

大多数 modules 的使用说明是直接嵌在程式里的*。如果是这样的话,您可以用
pod2man 这个 script 来阅读使用指南:

% pod2text name_of_module.pm
% pod2man name_of_module.pm | nroff -man | more

【译注】如果您在 *.pm 档中看到 “=head1、“=cut 这类的东西便
是显示使用说明有附在里头。这是 larry wall 设计的 pod (plain old
document) 格式。详见 perlpod manpages。

—————————————————————————

q2.3: 有哪些 perl4 的 cgi 或 www的 libraries ?

最广为使用的 perl4 cgi library 是 steve brenner 的 cgi-lib.pl
(<http://www.bio.cam.ac.uk/web/form.html>。

—————————————————————————

q2.4: 有哪些给 perl5 使用的 cgi modules?我该用哪个?为什麽?

cgi.pm
(<http://www-genome.wi.mit.edu/ftp/pub/software/www/cgi.pm.tar.gz>*
这个很棒的 module 在功能上和部分 cgi::* modules
相重叠。如果您不想和多
重 modules
打交道的话,您可以只用这一个。我们等一下在後头会给您看一个
用 cgi.pm 来替 cgi scripts 除错的实例。

此外,lincoln (lincoln stein;cgi.pm 的作者)还写了一本讨论 web

cgi 非常好的书,叫 how to set up and maintain a world wide web
site
(<http://www.aw.com/cp/stein2e.html>。

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

cgi::* 模组套件
(<http://www-genome.wi.mit.edu/ftp/pub/software/www/cgiperl/>
这些模组原先大多是由 tim bunce 所写,现在则由 lincoln stein
来负责维
护。它们的功能包括了帮您产生及处理 form ,替 cgi
程式除错,以及在不同
的 forms 之间维系一个状态值。

cgi lite
(<http://dongpo.math.ncu.edu.tw/perl/cpan/authors/id/shgun/cgi_lite-1.62.pm.gz>
)
这个轻量级的 module 是 cgi::* modules
之外的另一个选择。它可算是在老旧
的 cgi-lib.pl (<http://www.bio.cam.ac.uk/web/form.html>
之上改良、加
料後的产物。

以上三者均有能力处理 multipart form 资料(即上传)。

—————————————————————————

q2.5: 为什麽这麽多 perl cgi libraries 都是 object-oriented
(物件导向)的?
我对用物件导向来写程式一窍不通。难道就没有简单一点,给不会物件导向的人使用
的 libraries 吗?物件导向有多难?

其实使用物件导向的 modules 并不难。先去看看 tom christiansen 的 easy
intro
to using perl objects
(<http://perl.com/perl/everything_to_know/easy_objects.html>
(简单介绍如
何使用 perl 物件)吧。

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

【译者】cgi.pm 的使用说明
(<http://www-genome.wi.mit.edu/ftp/pub/software/www/>中有更多范
例可供参考。

#!/usr/local/bin/perl -w
use cgi_lite;
$cgi = new cgi_lite;
%data = $cgi->parse_form_data;
print "content-type: text/plain", "\n\n";
foreach $key (keys %data) {
print $key, " = ", $data{$key}, "\n";
}
exit 0;

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

begin {
unshift @inc, "/your/dir/favorite/place";
}

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

use lib qw(/your/dir/favorite/place);

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

#!/usr/local/bin/perl -w
use cgi::form;
$cgi_form = new cgi::form;
print <<end_of_header;
<html>
<head><title>看著我做!</title></head>
<body>
<h1>看著我做!</h1>
end_of_header
print $form->startform;
## 产生一个单行输入栏位 (text field)
print 姓名: ;
print $form->textfield(name), "<br>\n";
## 产生一组单选按纽 (radio buttons)
print <p>您住哪儿: <br>;
print $form->radio_group(-name => where,
-values => [北美洲,
南美洲,
欧洲,
澳洲,
亚洲,
南极洲],
-default => 北美洲,
-linebreak => true);
## 产生一个多行输入栏位 (textarea)
print 意见: ;
print $form->textarea(comments, undef, 5, 40);
print "<p>";
print $form->reset;
print $form->defaults;
print $form->submit(送出!, submit);
print $form->endform;
print "</body></html>";

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

个方法产生一个送出钮以便让人将资料送至 server 处。

您看,不是很容易吗?

赞(0)
版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com 特别注意:本站所有转载文章言论不代表本站观点! 本站所提供的图片等素材,版权归原作者所有,如需使用,请与原作者联系。未经允许不得转载:IDC资讯中心 » 中文版 Perl CGI 程式写作常问问题集(三)-CGI教程,CGI文档
分享到: 更多 (0)