Mojo::UserAgent设置了cookie没有生效

只是一个红薯

现在问题是这样的：
1.登录一个网站，返回两条cookie信息。
2.新添加cookie2,使用这3条cookie信息请求另一个页面。
设置了cookie2,但没有生效

请问下怎么改才能添加新的request cooike

1. use 5.018;
   
2. use warnings;
   
3. use JSON;
   
4. use Mojo::UserAgent;
   
5. use Data::Dumper;
   
6. use Mojo::UserAgent::CookieJar;
   
7. use URI::Escape;
   
8. my $loginData={
   
9. email                => "test@163.com",
   
10. password        => "achinaunix=",
    
11. };
    
12. my $loginData_json = encode_json $loginData;
    
13. my $ua=Mojo::UserAgent->new;
    
14. my $jar = Mojo::UserAgent::CookieJar->new;
    
15. $ua     = $ua->max_redirects(1);
    
16. my $url='https://xxxx/login';
    
17. my $response = $ua->post($url=> json => $loginData,'content-type' =>'application/json');
    
18. say $response->res->body;
    
19. #say $_ for @{$response->res->cookies}; #resoonse里有两条cookie信息
    
20. 
    
21. $jar->add(
    
22.   Mojo::Cookie::Response->new(
    
23.     name   => 'name',
    
24.     value  =>  'value',
    
25.     domain => '.talkingdata.com',
    
26.     path   => '/'
    
27.   )
    
28. );
    
29. $ua = $ua->cookie_jar($jar); #[color=Magenta]没有生效[/color]
    
30. 
    
31. open F,'>','b';
    
32. say F Dumper($ua->get('https://xxxx.com'=>{'Referer'=>'https://xxxx.com'}));

复制代码

@iakuf
[@]py[/@]如果方便，帮忙看看，谢谢

RZL_01

1. print  Dumper($jar);

复制代码

是不是数据有加上去了吗？

RZL_01

1. 
   
2. my $un='';
   
3. my $pw='';
   
4. my $ref='hm';
   
5. my $loginUrl='';
   
6. my $postUrl='1‘;
   
7. 
   
8. my $loginform={
   
9.         'password' => $pw,
   
10.         'referer' => $ref,
    
11.         'username' => $un,
    
12.         };
    
13. my $ua=Mojo::UserAgent->new;
    
14. $ua     = $ua->max_redirects(1);
    
15. $ua->get($loginUrl);
    
16. $ua->post($postUrl,{DNT => 1} => form => $loginform);
    
17. my $jar=$ua->cookie_jar;
    
18. my $uaa=Mojo::UserAgent->new;
    
19. $uaa->cookie_jar($jar);
    
20. my $tx=$uaa->get($ref);
    

复制代码

只是一个红薯

好像会覆盖之前的cookie回复 3# RZL_01


   

RZL_01

我个人认为，你的代码jar是新建的，没有保存或加载原有的cookies记录只添加了一条新纪录，你dumper出来只有一条新加记录，那是正常的吧。

只是一个红薯

回复 5# RZL_01


    怎么加在以前的？
现在我请求都这样写，不过没在jar里面，比较费劲

1. my $header =  $ua->get('https://www.xxxx.com'
   
2.          =>{
   
3.                 Referer=>'https://www.xxxx.com',
   
4.                 Cookie=> $new_cookie,
   
5.         })->res->headers->to_hash;

复制代码

RZL_01

1. use Mojo::UserAgent;
   
2. use Data::Dumper;
   
3. use Mojo::UserAgent::CookieJar;
   
4. 
   
5. my $url='xxxxxxx';
   
6. my $ua=Mojo::UserAgent->new;
   
7. $ua     = $ua->max_redirects(1);
   
8. $ua->get($url);
   
9. my $jar=$ua->cookie_jar;
   
10. $jar->add(
    
11.   Mojo::Cookie::Response->new(
    
12.     name   => 'name',
    
13.     value  =>  'value',
    
14.     domain => 'chinaunix.net',
    
15.         max_age => '0',
    
16.     path   => '/'
    
17.   )
    
18. );
    
19. print  Dumper($jar);
    
20. 
    
21. my $newurl='aaaaaa';
    
22. my $uaa=Mojo::UserAgent->new;
    
23. $uaa->cookie_jar($jar);
    
24. my $tx=$uaa->get($newurl);
    
25. print  Dumper($uaa->cookie_jar);

复制代码

只是一个红薯

多谢，有空试下看行不，最近工作太忙回复 7# RZL_01