→ senhuo:謝謝啊~~這位高手 可以抓取了 10/24 13:17
※ 引述《senhuo (努力吧)》之銘言：
: 程式碼如下：
: #! /usr/bin/perl
: #--------------------------------------
: use LWP::Simple;
: use HTML::Parse;
: use HTML::Element;
: use URI::URL;
: use DBI;
: use WWW::Mechanize;
既然都用Mechanize了，那就這樣吧
use WWW::Mechanize;
my $mech = WWW::Mechanize->new();
my $http="http://www.google.com/search?q=%E5%8F%B0%E7%81%A3&hl=zh-TW&lr=&start=1\0&sa=N";
$mech->get($http);
print $mech->content();
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 60.250.75.176