请教http 302错误的解决办法！

kitsilence

我用perl调用Google引擎进行搜索，用的是重构url的做法。程序的意图是采用LWP::UserAgent

根据url去抓取保存其相对应的网页。请看如下代码：

但这样做的话后台只会报 302错误，不解中...诚心求教！

1. use strict;
   
2. require LWP::UserAgent;
   
3. 
   
4. my $url= "http://www.google.com.hk/search?hl=zh-CN&source=hp&q=LWP%3A%3AUserAgent&meta=&aq=o&aqi=&aql=&oq=";
   
5. 
   
6. my $ua = LWP::UserAgent->new;
   
7. $ua->timeout(10);
   
8. $ua->env_proxy;
   
9. 
   
10. my $response = $ua->get($url);
    
11. 
    
12. if ($response->is_success) {
    
13.      print $response->decoded_content;  # or whatever
    
14. }
    
15. else {
    
16.      die $response->status_line;
    
17. }

复制代码

补充一下：代码里的 $url 是在google首页输入LWP::UserAgent搜索后出现在url栏里的字窜，这个应该不难理解

bernana

回复 1# kitsilence


    你需要设置cookie

1. my $cookie_jar=HTTP::Cookies->new(file =>"google.txt",autosave => 1);
   
2. $ua->cookie_jar($cookie_jar);

复制代码

kitsilence

回复 2# bernana


  你解释下为什么这么做行吗，嗯，我copy了这两行代码加到我们的代码里，

  在源码HTTP/Cookies文件夹里建了google.txt，程序运行返回变成了403 Forbidden了

ziyunfei

因为没有cookie 所以google让你302重定向
可在请求前加一句
$ua->cookie_jar(HTTP::Cookies->new('file'=>'cookie.lwp','autosave'=>1));
这样不会重定向了，但是google又让你403了
因为perl默认的User-Agent是libwww-perl/5.836，google不认为这是合法的User-Agent
再加一句
$ua->agent('Mozilla/5.0');
或者
$ua->agent('');
就ok了

kitsilence

回复 4# ziyunfei


    呵呵~ 非常感谢！受教了