作者travellu (旅行)
看板Perl
标题Re: [问题] 抓取网页问题
时间Mon Apr 7 18:40:18 2008
问题解决了
改用
use LWP::Simple;
$doc = get '
http://www.dmoz.org/';
print($doc);
就可以了
※ 引述《travellu (旅行)》之铭言：
: 欲抓取网页 http://www.dmoz.org/
: 抓网页的副函式程式码如下：
: sub grasp_searchresult() {
: my ( $query ) = @_;
: my $browser = new LWP::UserAgent;
: $browser->agent( 'Mozilla/4.76 [en] (WinXp; U)' );
: my $request = q();
: $request = new HTTP::Request( "Get",
: "http://www.dmoz.org/" );
: my $html = $browser->request($request);
: return $html->content;
: }
: 抓出来的东西是空的
: 抓其它网页例如yahoo首页则是没问题
: 不晓得是不是这个网页有什麽特殊的限制？
: 谢谢！
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.116.245.222