perl常问问题集--第九篇

ibwww-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（跳出式选单）？
用和这两个标签。CGI.pm模组（可由CPAN取得）对这个widget【此指跳出式选单这个介面成分】还有许多其他的介面成分都有支援【即有制作动态标签的函式】，其中有些是以巧妙模拟的方式达成。


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

如何抓HTML档案？
有一个方法是，如果您的系统上装有lynx一类的文字模式的HTML浏览器的话，那麽可以这麽做：

$html_code=`lynx-source$url`;
$text_data=`lynx-dump$url`;

收录在CPAN里的libwww-perl(LWP)模组则提供了更强的方法来做这件事。它不但可钻过proxies，而且也不需要lynx：

#printHTMLfromaURL
useLWP::Simple;
getprint"http://www.sn.no/libwww-perl/";;

#printASCIIfromHTMLfromaURL
useLWP::Simple;
useHTML::Parse;
useHTML::FormatText;
my($html,$ascii);
$html=get("http://www.perl.com/";);
defined$html
ordie"Can''tfetchHTMLfromhttp://www.perl.com/";;
$ascii=HTML::FormatText->new->format(parse_html($html));
print$ascii;


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

如何解开或产生Web上那些冠的码？
以下是一个解码的实例：

$string="http://altavista.digital.com/cgi-bin/query?pg=q&;what=news&fmt=.&q=+cgi-bin +perl.exe";
$string=~s/([a-fA-F0-9]{2})/chr(hex($1))/ge;

编码比较困难一点，因为您不能盲目地把所有非字母数字的字元(\W)都一律转换成十六进位的跳脱码。很重要的是有特殊意义的字元，如/和?便不可以转换。要做得正确，最简单的方法大概是使用现成的URI::Escape模组，而不要重新发明轮子。这个模组是libwww-perl套件(LWP)的一部分，可自CPAN取得。


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

如何【将requests】转向到另一页去？
在您的回应中不要使用Content-Type这个标头，相反地，用Location:这个标头。按正式规定，应当URL:才是正确的标头。因此CGI.pm模组（可由CPAN取得）两个标头都送：

Location:http://www.domain.com/newpage
URI:http://www.domain.com/newpage

要注意的是，由於servers采用「最高效率化」的运作方式，故在这些标头中如果使用相对式的URLs可能会产生奇怪的後果。


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

如何替网页加上密码？
不一定，要看情况。您需要读您server的使用手册，或者查查看上头所列的几个FAQs。


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

要怎麽用Perl来编辑.htpasswd和.htgroup这两个档案？
HTTPD::UserAdmin和HTTPD::GroupAdmin等模组为这些档案提供了统一的物件导向介面，尽管这些档案可能以各种不同的格式储存。这些资料库可能是纯文字格式、dbm、BerkeleyDB或任何DBI相容的资料库驱动程式(drivers)。HTTPD::UserAdmin支援`Basic''和`Digest''这两个认证模式所用的档案。以下是一例：

useHTTPD::UserAdmin();
HTTPD::UserAdmin
->new(DB=>"/foo

上一页 1 2 3 4 5 下一页

[关键词: 凯旋, 网络, 编程, PERL]

上一篇：PerlCGI程式写作常问问题集(2)Modules（模组）
下一篇：没有了

广告推荐

本站关键字:凯旋网络 网站建设 网页设计 编程 Asp Php Css Html Xml .Net Access Mssql Mysql 脚本 代码
本站内刊登的所有文章及图片信息 版权归原作所有 如有侵害您的版权 请联系凯旋网络删除

• 凯旋网络
• 收藏本站
• 交流论坛
• 繁体中文

• Index
• ASP
• .NET
• PHP
• Css
• Ajax
• XML
• JSP
• VBS
• Access
• Mssql
• Mysql
• Java
• Delphi
• Perl
• Shell
• C/C++
• C#/CSHARP
• J2EE

当前位置 : 凯旋网络 > Perl > 正文