Форум программистов «Весельчак У»
  *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

  • Рекомендуем проверить настройки временной зоны в вашем профиле (страница "Внешний вид форума", пункт "Часовой пояс:").
  • У нас больше нет рассылок. Если вам приходят письма от наших бывших рассылок mail.ru и subscribe.ru, то знайте, что это не мы рассылаем.
   Начало  
Наши сайты
Помощь Поиск Календарь Почта Войти Регистрация  
 
Страниц: [1]   Вниз
  Печать  
Автор Тема: lwp parallel и куки  (Прочитано 28956 раз)
0 Пользователей и 1 Гость смотрят эту тему.
perl6
Помогающий

ru
Offline Offline

« : 13-11-2015 20:26 » 

Приветствую. Имеем код:

Код:
#!/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) # а где куки???
   
  }}

Никак не пойму, как заюзать кукисы.
« Последнее редактирование: 13-11-2015 20:41 от perl6 » Записан
RXL
Технический
Администратор

ru
Offline Offline
Пол: Мужской

WWW
« Ответ #1 : 14-11-2015 20:22 » 

Попробуй аналогично LWP::UserAgent.
Записан

... мы преодолеваем эту трудность без синтеза распределенных прототипов. (с) Жуков М.С.
perl6
Помогающий

ru
Offline Offline

« Ответ #2 : 15-11-2015 14:08 » new

Попробуй аналогично LWP::UserAgent.
Так и делаю, добавил поддержку куков в броузер $pua->cookie_jar(HTTP::Cookies->new(hide_cookie2 => 1));
А потом, когда пытаюсь послать запрос $pua->get($str), кук нет.
Записан
Страниц: [1]   Вверх
  Печать  
 

Powered by SMF 1.1.21 | SMF © 2015, Simple Machines