Приветствую. Имеем код:
#!/usr/bin/perl -w
$| = 1;
use LWP::Parallel::UserAgent;
use HTTP::Cookies;
use HTTP::Request;
use utf8;
my $reqs = [
HTTP::Request->new('GET', $url1, [$headers1] ),
HTTP::Request->new('GET', $url2, [$headers2] ),
];
my $pua = LWP::Parallel::UserAgent->new();
$pua->in_order (1);
$pua->duplicates(0);
$pua->timeout (2);
$pua->redirect (1);
my $cookie_jar = HTTP::Cookies ->new( hide_cookie2 => 1 );
$pua ->cookie_jar($cookie_jar);
foreach my $req (@$reqs) {
#print "Registering '".$req->url."'\n";
if ( my $res = $pua->register ($req) ) {
#print STDERR $res->error_as_HTML;
}
}
my $entries = $pua->wait();
foreach (keys %$entries) {
my $res = $entries->{$_}->response;
if ($res->decoded_content =~ m/regexp/) {
$str = $1;
$pua->get ($str) # а где куки???
}}
Никак не пойму, как заюзать кукисы.