2013-03-11 3 views
2

쿠키를 LWP::UserAgent과 함께 사용하려고하지만 텍스트 파일에 저장되지 않습니다. 내가 도대체 ​​뭘 잘못하고있는 겁니까?LWP :: UserAgent를 사용하는 동안 쿠키가 저장되지 않음

use v5.16; 
use strict; 
use warnings; 
use Data::Dumper; 

use LWP::UserAgent; 
use HTTP::Cookies; 
use Net::SSL(); 

my $cookie_jar = HTTP::Cookies->new( 
    file => 'lwp_cookies.txt', 
    autosave => 1, 
); 

my $ua = LWP::UserAgent->new(
    ssl_opts => { verify_hostname => 0 }, 
    cookie_jar => $cookie_jar, 
); 

my $auth_url = 'https://my.site.url/path/authenticate'; 
use HTTP::Request::Common qw(GET); 
my $req = HTTP::Request->new(GET => $auth_url); 
$req->authorization_basic('username', 'password'); 

$ua->request($req); 
say Dumper(\$cookie_jar); 

는 그리고 덤프 된 데이터는 다음과 같습니다

$VAR1 = \bless({ 
    'autosave' => 1, 
    'COOKIES' => { 
      'my.site.url' => { 
       '/' => { 
        'BLAH_COOKIE_KEY' => [ 
         0, 
         'very_long_string', 
         undef, 
         1, 
         undef, 
         undef, 
         1 
         ] 
        } 
       } 
     }, 
    'file' => 'lwp_cookies.txt' 
}, 'HTTP::Cookies'); 

그리고 lwp_cookies.txt 그냥이 있습니다

#LWP-Cookies-1.0 

것은 내가 딸기 펄 승리에있어.

답변

7

발행하려고 A :

my $cookie_jar = HTTP::Cookies->new( 
    file => 'lwp_cookies.txt', 
    autosave => 1, 
    ignore_discard => 1, 
); 
+2

'ignore_discard : 또한

$cookie_jar->save 

이 쿠키는 귀하의 $cookie_jarignore_discard 세트 1을 구성, 만료 또는 폐기를 요청, 그래서 수 있습니다 '트릭을 했어, 고마워! – flamey

+0

도움이 된 것을 기쁘게 생각합니다. :) –

관련 문제