有玩过LWP+IE Cookie的吗?

con

下面这段代码在访问xxx.com时放出IE保存的Cookie, 但是死活都不生效, 不知道什么原因

1. #!/usr/bin/perl -w
   
2. use strict;
   
3. 
   
4. use LWP;
   
5. use LWP::Debug qw(+);
   
6. use HTTP::Cookies::Microsoft;
   
7. use Win32::TieRegistry(Delimiter => "/");
   
8. 
   
9. LWP::Debug::trace('add_cookie_header()');
   
10. 
    
11. my $cookies_dir = $Registry->
    
12.     {"CUser/Software/Microsoft/Windows/CurrentVersion/Explorer/Shell Folders/Cookies"};
    
13. 
    
14. my $cookie_jar = HTTP::Cookies::Microsoft->new(
    
15.                   file     => "\"$cookies_dir\\index.dat\"",
    
16.                   'delayload' => 0,
    
17.               );
    
18. my $ua = LWP::UserAgent->new;
    
19. $ua->agent("Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; Foxy/1; .NET CLR 2.0.50727; CIBA)");
    
20. $ua->cookie_jar( $cookie_jar );
    
21. my $URL = "http://www.xxx.com/forum/index.php";
    
22. my $myReq = HTTP::Request->new(GET =>"$URL");
    
23. $cookie_jar->add_cookie_header($myReq);
    
24. my $myRes = $ua->request($myReq);
    
25. print $myRes->content;

复制代码

下面这段代码改成用FF的Cookie, 正常:

1. #!/usr/bin/perl -w
   
2. use strict;
   
3. 
   
4. use LWP;
   
5. use LWP::Debug qw(+);
   
6. use HTTP::Cookies::Mozilla;
   
7. 
   
8. my $cookie_jar = HTTP::Cookies::Mozilla->new(
   
9.                   file     => "c:/Documents and Settings/Administrator/Application Data/Mozilla/Firefox/Profiles/98zahcst.
   
10. default/cookies.sqlite",
    
11.               );
    
12. my $ua = LWP::UserAgent->new;
    
13. $ua->agent("Firefox/3.0.3");
    
14. $ua->cookie_jar( $cookie_jar );
    
15. my $URL = "http://www.xxx.com/forum/index.php";
    
16. my $myReq = HTTP::Request->new(GET =>"$URL");
    
17. $cookie_jar->add_cookie_header($myReq);
    
18. #my $myRes = $ua->send_request($myReq);
    
19. my $myRes = $ua->request($myReq);
    
20. print $myRes->content;

复制代码

flw

我一般都是用 LWP 登录一下就可以了。