作者yingwan (yingwan)
看板Perl
标题[问题] 抓网页原始码
时间Wed Nov 19 23:29:57 2008
是这样的，我写了一个CGI用LWP 抓网页
但是我不想呈现出网页，只想呈现出它的HTML的原始码，要怎麽做阿?
use CGI qw(:standard -debug);
use CGI::Carp qw(fatalsToBrowser);
use LWP::Simple;
#get input
$url=param ("url");
#fetch the page
$URL = get("
http://$url");
print header();
print start_html;
print $URL;
print end_html();
exit;
谢谢好心人的指点
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 149.159.132.73
1F：推 LiloHuang:你需要的应该是把<跟>换成<跟>诸如此类的replace 11/20 00:33
2F：→ yingwan:大感谢!! 11/21 03:31