怎么在LWP中使用cookie

coldrainsunc

1. #!/usr/bin/perl
   
2. use strict;
   
3. use LWP::UserAgent;
   
4. use HTTP::Cookies;
   
5. 
   
6. my $ua=new LWP::UserAgent;
   
7. $ua->agent("perl_client/1.0 (perl $],libwww-perl-$LWP::VERSION,$^O)");
   
8. my $home_url="http://h50237.www5.hp.com/iportal/commonlogin/default.aspx?returnurl=http%253a%252f%252fh50237.www5.hp.com%252fpartnerportal%252fhomepage.aspx";
   
9. 
   
10. my $request=HTTP::Request->new(GET=>"$home_url");
    
11. my $cookie_jar=HTTP::Cookies->new(file =>"/root/hello",autosave => 1);
    
12. $ua->cookie_jar($cookie_jar);
    
13. my $response=$ua->request($request);
    
14. if($response->is_success){
    
15.         print $response->content;
    
16. }

复制代码

下面是我有ethereal得到的结果

1. GET /iportal/commonlogin/default.aspx?returnurl=http%253a%252f%252fh50237.www5.hp.com%252fpartnerportal%252fhomepage.aspx HTTP/1.1
   
2. 
   
3. TE: deflate,gzip;q=0.3
   
4. 
   
5. Connection: TE, close
   
6. 
   
7. Host: h50237.www5.hp.com
   
8. 
   
9. User-Agent: perl_client/1.0 (perl 5.008008,libwww-perl-5.805,linux)
   
10. 
    
11. 
    
12. 
    
13. HTTP/1.1 200 OK
    
14. 
    
15. Cache-Control: private
    
16. 
    
17. Content-Length: 59070
    
18. 
    
19. Content-Type: text/html; charset=utf-8
    
20. 
    
21. Server: Microsoft-IIS/6.0
    
22. 
    
23. X-Powered-By: ASP.NET
    
24. 
    
25. X-AspNet-Version: 1.1.4322
    
26. 
    
27. Set-Cookie: ASP.NET_SessionId=43mnek55h4zuzuzb2mqxpdz0; path=/
    
28. 
    
29. Set-Cookie: BB33E7B3-1433-453C-BB5D-55322BA46924=C0217A41-0918-4C51-B7C7-26FF2953560E=f6171fe3-23bf-452f-a067-29d9f37ea4bd; domain=hp.com; path=/
    
30. 
    
31. Date: Thu, 21 Dec 2006 02:36:19 GMT

复制代码

可是在
文件hello是并没有设置cookie的内容
[root@supersun ~]# cat hello
#LWP-Cookies-1.0
不知道错在哪，xdjm们帮帮忙，谢谢!

[ 本帖最后由 coldrainsunc 于 2006-12-21 11:07 编辑 ]

xiaoshengcaicai

应该是response在set cookie的时候没有设置expires，所以自动清空了，


所以cookie文件不会保存内容滴

coldrainsunc

那有什么办法将cookie保存下来或者在下一个请求中使用呢

xiaoshengcaicai

只是没有存到文件里面而已， 你的ua继续去request还是有cookie的

xiaoshengcaicai

你不信的话，可以
use Data:umper;
print Dumper($ua);

可以看到你的$ua里面的cookie jar还是有内容的。

coldrainsunc

谢谢，我试试看！

Namelessxp

据我的使用发现，cookie_jar不会保存PHPSESSIONID，就这原因，曾经害我抓包分析好几个小时，我现在都直接从头部手工分离cookie用

Namelessxp

原帖由 xiaoshengcaicai 于 2006-12-21 11:57 发表
你不信的话，可以
use Data:umper;
print Dumper($ua);

可以看到你的$ua里面的cookie jar还是有内容的。

是在里面，只是没保存到文件中去，还是从HTTP头分离比较爽

xiaoshengcaicai

呵呵，刚才阅读了一下HTTP::Cookies 源码

在把cookie内容当作string 输出的时候，有这样的代码

1. 
   
2. my($version,$key,$val,$path,$domain,$port,
   
3.            $path_spec,$secure,$expires,$discard,$rest) = @_;
   
4.         return if $discard && $skip_discard;
   

复制代码

return if $discard && $skip_discard 这里面$skip_discard这个参数是new一个cookie jar的时候传进来的

那么就是说，如果我们这样new一个cookie jar，那么内容是肯定会保存到文件的：

1. 
   
2. my $cookie_jar=HTTP::Cookies->new(file =>"d:/a.txt",autosave => 1, ignore_discard => 1);
   

复制代码

大伙可以试试


楼主如果硬要把cookie写到文件上，不妨试试 多加一个参数ignore_discard => 1

[ 本帖最后由 xiaoshengcaicai 于 2006-12-21 22:38 编辑 ]

coldrainsunc

嗯，加上了ignore_discard => 1确实是将cookie写到文件中了！
谢谢xiaoshengcaicai兄！