[PerlChina] Re: 网页不能抓取

原来baidu.pm 是 agentzh 写的，牛啊

 

这是我见到的第一个 大陆人写的pm

 

 

On 3/23/09, hfahe <hfahe@163.com> wrote:

lwp:: simple

get

http://www.baidu.com/s?wd=perl就好了

 

祝好 

---

hfahe

2009-03-23

---

发件人： Fayland Lam

发送时间： 2009-03-23 10:20:57

收件人： perlchina

抄送：

主题： [PerlChina] Re: 网页不能抓取

 

agentzh did a Baidu CPAN module:
http://search.cpan.org/~agent/WWW-Baidu-0.06/lib/WWW/Baidu.pm
you can view the source code.

Thanks.


On 2009-3-23 10:06, Leeo wrote:

 use strict;   use LWP;  my $browser=LWP::UserAgent->new;  my $url='http://www.baidu.com';  my $response=$browser->post($url,      ['q'=>'perl',],    # 这里我想利用百度搜索perl             );       open FILE,">baidu.txt";    #存放搜索网页源代码的文件      die "$url error:",$response->status_line  unless $response-   

>is_success;     

     print FILE $response->content;      close FILE;   

--  Fayland Lam // http://www.fayland.org/ Foorum based on Catalyst // http://www.foorumbbs.com/ --~--~---------~--~----~------------~-------~--~----~
 您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。 
  要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com 
  要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com 
  更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛 
 
 -~----------~----~----~----~------~----~------~--~---