LWP module 里面的COOKIE 有人熟悉吗

ruiqingzheng

最近用到LWP 自动登陆站点 ， 但是 需要COOKIE支持

1. 
   
2. #!/usr/bin/perl
   
3. use warnings;
   
4. use strict;
   
5. use HTTP::Cookies;
   
6. 
   
7. use LWP;
   
8. my $browser = LWP::UserAgent -> new;
   
9. my $login_frm = "https://www.xxx.com/xxx";
   
10. 
    
11. $browser->cookie_jar( HTTP::Cookies->new(
    
12.     'file' => '/tmp/cookies.lwp',
    
13.     'autosave' => 1,
    
14.   ));
    
15. 
    
16. $browser->cookie_jar( HTTP::Cookies::Netscape->new(
    
17.     'file' => '/tmp/cookies.lwp',
    
18.   ));
    
19. 
    
20. $browser->agent('Mozilla/4.76 [en] (Win98; U)');
    
21. 
    
22. my $response = $browser -> post($login_frm,
    
23.         [
    
24.                 'Username' =>'abcde123',
    
25.                 'Passwd'=>'abcde123',
    
26.         ]
    
27. );
    
28. 
    
29. print $response -> content;
    
30. die "$login_frm error: ", $response->status_line
    
31.    unless $response->is_success;
    
32. die "Weird content type at $login_frm -- ", $response->content_type
    
33.    unless $response->content_type eq 'text/html';
    
34. 
    
35. print $response -> content;
    

复制代码

比如像上面的代码    依然是提示 需要COOKIE支持  请问LWP 要如何使用COOKIES 来对提交表单等操作呢 ， 有没有好点的文章
先谢谢了

flw

我一般都是这样：
$ua->cookie_jar( {} );
就可以了。

xiaoshengcaicai

同上

如果要保存cookie为文件

要加上ignore_discard  => 0的参数

flw

原帖由 xiaoshengcaicai 于 2008-7-28 22:57 发表
同上

如果要保存cookie为文件

要加上ignore_discard  => 0的参数

你的 catalyst 教程很不错！