3

我开始使用 Mojolicious 库进行测试，一切正常，直到我尝试从响应中提取 cookie。

我尝试了以下几种变体：

$ua = Mojo::UserAgent->new();
$ua->on( error => sub { my ($ua, $error) = @_; say "This looks bad: $error"; } );
$ua->max_redirects(1)->connect_timeout(10)->request_timeout(20);
$ua->cookie_jar(Mojo::CookieJar->new);

# ... later ...

my $tx  = $ua->get($url);
my $jar = $ua->cookie_jar->extract($tx); # This is undef

但是，我可以通过 LWP::UserAgent 提取 cookie。但是，LWP 有几个不同的问题，使该选项目前不可行。只是为了比较，这里是提取 cookie 的 LWP 代码。

my $lwp = LWP::UserAgent->new(cookie_jar => {}, timeout => 20, max_redirect => 1);
push @{ $lwp->requests_redirectable }, 'POST';
my $response = $lwp->get($url);
die $response->status_line unless $response->is_success;
$lwp->cookie_jar->scan(\&ScanCookies);

sub ScanCookies {
   my ($version, $key, $value) = @_;
   say "$key = $value";
}

所以我知道我的 $url 等是正确的。

编辑：我应该提到我正在使用草莓 5.14

Edit2：我还应该提到，cookie 肯定会进入用户代理，因为会话 ID 得到了正确处理。不幸的是，我需要访问另一个 cookie（用于测试站点），我似乎无法获得正确的咒语来访问它们......说我相信这是一个程序员问题，仅此而已.

4

1 回答 1

2

用这个：

$tx->res->cookies
于 2012-06-20T13:12:14.390 回答