ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Sergey Gernichenko                   2:5079/46.90   21 Mar 2007  02:52:52
 To : All
 Subject : LWP & Cookies
 -------------------------------------------------------------------------------- 
 

 
   use LWP::RobotUA;
   use HTTP::Cookies;
   my $cj = HTTP::Cookies->new(file => "$cookies_file", autosave => 1);
 
 #Hужно ли здесть делать $cj->load, чтобы куки из файла добавились к запросу?
 
   $cj->load;
 
   my $ua = LWP::RobotUA->new('Mozilla/5.0', 'me@foo.com');
 
   $ua->cookie_jar($cj);
 
 #после того, как куки загружены из файла, мне нужно в запрос добавить еще 1
 куку. Пытаюсь делать так:
 
   $cj->set_cookie('', $key, $val, $path, $domain, '',
 
              0, $secure, $maxage, 0, {} );
 
   $cj->save;  #в файл ее надо сохранить
   $ua->cookie_jar($cj);  #нужно ли это 2й раз вызывать?
 
 loop1:
       $req = HTTP::Request->new($method,$url);
       if ($method eq 'POST'){
         $req->content_type('application/x-www-form-urlencoded');
         $req->content(join("&", map ("$_=$data->{$_}",keys %$data)));
       }
       Log("$method $url","\n".$req->as_string,"\n".$req->content);
       $response = $ua->request($req);
 А если у меня несколько запросов, я зацикливаю с метки loop: нужно ли вызывать в
 этом цикле $ua->cookie_jar($cj) ?
 
 Вопросы оттого, что в файле $cookie_file добавленной куки нет... не сохраняется 
 она... и похоже, в запрос не передается...
 Еще вопрос: как перед выполнением запроса посмотреть его полностью, включая все 
 заголовки, куки и т.д.? Если $req->as_string, то в этом ответе куков нет вобще. 
 Как тогда правильно с куками работать?
 До скорых встреч, *All*                 С уважением, *Sergey*.
 --- Hа этом поставим точку.
  * Origin: Пей пиво, если есть силы (2:5079/46.90)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор