Как явно очистить куки, используя модуль WWW :: Scripter в Perl?

Question

Простой perl код:

      use WWW::Scripter;
       
      ...
                 
      my $w = WWW::Scripter->new('agent' => 'myAgent');
      $w->use_plugin('JavaScript');
       
      ...
       
      $w->get($url);
       
      ### WWW::Mechanize automatic cookies = good for now
       
      $w->add_header(Referer => $url);
      $url = $w->document->getElementsByTagName('a')->[0]->href;
      $w->get($url);
       
      ...
       
      ### WWW::Mechanize automatic cookies = NOT good for now
      ### ! need to clear cookie jar here !
       
      ...
       
      $w->add_header(Referer => $url);
      $url = $w->document->getElementsByTagName('a')->[0]->href;
      $w->get($url);

Одной из хороших функций WWW::Mechanize является автоматические куки , которые хороши в какой-то момент, но иногда куки должны быть удалены. Как?

Answer 1

Метод WWW::Mechanize cookie_jar возвращает объект HTTP::Cookies.Соответствующий метод действительно называется clear.

Answer 2

Глядя на документацию , вы не можете просто сбросить атрибут jar cookie?

например

$w->cookie_jar({});