perl常问问题集--第九篇

2019-11-18 17:23:38

字体：大中小

来源：转载

供稿：网友

目录
篇名
概述
我的CGIscript可在指令列下执行但无法从浏览器执行。您能不能帮我修修看？
如何去除文章中的HTML标签？
如何萃取URLs？
如何从user端上传资料？如何在另一台机器上开一个档案？
如何在HTML中做pop-upmenu（跳出式选单）？
如何抓HTML档案？
如何解开或产生Web上那些冠的码？
如何【将requests】转向到另一页去？
如何替网页加上密码？
要怎麽用Perl来编辑.htpasswd和.htgroup这两个档案？
如何防范使用者藉由填我的CGI表格来做坏事？
如何解读、萃取email标头资料？
如何解译CGI表格？
如何验证email位址？
如何解MIME/BASE64字串？
如何根据使用者帐户名称自动合成email位址？
我的程式如何送／读email？
如何找出我的主机名／网域名／IP位址？
如何抓新闻讨论群的文章或群组名录？
如何抓／丢FTP档案？
如何用Perl做RPC？
作者及版权事宜

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

篇名
perlfaq9-网路连线（原文版Revision:1.16,Date:1997/04/2318:12:06.中文版$Revision:1.13$,$Date:1997/07/1220:44:25$）

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

概述
本篇涵盖网路连线、Internet，还有几个关於WWW的问题。

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

我的CGIscript可在指令列下执行但无法从浏览器执行。您能不能帮我修修看？
当然，但您恐怕付不起雇我们的签约金:-)

说真的，如果您能够先证明您已读过下列这几个FAQs，但遇到的问题并不单纯、非叁言两语即可回答的话，那麽您post到comp.infosystems.www.authoring.cgi上（如果是有关HTTP、HTML，或CGI通信协定）的问题可能也会得到口气和缓而有用的答覆。表面上看似Perl，但骨子里是CGI之类的问题，如果post到comp.lang.perl.misc人家可能就不会这麽乐意地接受了。

几个实用的FAQs分别是：

http://www.perl.com/perl/faq/idiots-guide.html
http://www3.pair.com/webthing/docs/cgi/faqs/cgifaq.shtml
http://www.perl.com/perl/faq/perl-cgi-faq.html
http://www-genome.wi.mit.edu/WWW/faqs/www-security-faq.html
http://www.boutell.com/faq/

【译者】上面第叁份文件，Perl-CGI-FAQ的中译版可在http://2Ti.com/cgi-bin/2T/perl/perl-cgi-faq-chi/处取得。最後一份（WWWFAQ）的中译版可自http://www.acer.net/document/cwwwfaq/取得。

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

如何去除文章中的HTML标签？
最正确（尽管不是最快）的方法是使用HTML::Parse模组（可由CPAN取得，是所有写Web程式者必备的libwww-perl套件的一部分）。

许多人尝试用简陋的正规表示式来解决这个问题，譬如说像s/<.*?>//g，但这个式子在很多情况下会失败，因为要处理的字串可能会跨越断行字元，也可能含有被quote【跳脱】的箭头号，或有HTMLcomment出现；再加上一些疏忽，譬如，人们常忘了转换如<的entities（跳脱字元）。

以下这个「简陋」的方法对大多数的档案都有效：

#!/usr/bin/perl-p0777
s/<(?:[^>'"]*|(['"]).*?/1)*>//gs

如果您想要更完整的解法，请看叁部曲的striphtml程式，http://www.perl.com/CPAN/authors/Tom_Christiansen/scripts/striphtml.gz。

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

如何萃取URLs？
一个快速但不完美的做法是

#!/usr/bin/perl-n00
#qxurl-tchrist@perl.com
PRint"$2/n"whilem{
A/s HREF/s*=/s*(["'])(.*?)/1
/s*>
}gsix;

这个版本并不替相对式写法的URLs作调整，也不懂代换bases【】，或如何处理HTMLcomments、同时处理同一个标签里的HREF和NAME属性，或接受URL形式的参数。同时，它要比一个较「完整」、利用LWP[libwww-perl]模组套件的解法，例如http://www.perl.com/CPAN/authors/Tom_Christiansen/scripts/xurl.gz这个程式，快上一百倍。

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

如何从user端上传资料？如何在另一台机器上开一个档案？
如果是HTML表格的话，您可以使用multipart/form-data的编码格式。CGI.pm（可自CPAN取得）中的start_multipart_form()这个method就是为此设计的，它和startform()这个method是两回事。

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

如何在HTML中做pop-upmenu（跳出式选单）？
用密码: 验证码: