Как установить реферер используя модуль WWW :: Scripter в perl?

Question

Простой код моего сканера:

      #!/usr/bin/perl -w

      use WWW::Scripter;

      $w = new WWW::Scripter('agent' => 'myAgent');
      $w->use_plugin('JavaScript');

      ### need to set a referrer header here ###

      $w->get('http://website-url');

      print $w->content, "\n";

Мне нужно установить заголовок referrer перед выполнением get. В качестве альтернативы мне также понадобится установить другие заголовки, такие как cookie и т. Д. В документации 1010 * я не вижу, как это сделать. Должен быть способ установить заголовки. Как?

Answer 1

WWW :: Scripter является подклассом WWW :: Mechanize , поэтому вы также должны иметь возможность использовать методы этого класса.Вот как это должно выглядеть:

use strict;   #ALWAYS do this
use warnings; #This too. Allows more control than -w
use WWW::Scripter;

#MODULE->new() is better than new Module() because of possible parsing ambiguity
my $w = WWW::Scripter->new('agent' => 'myAgent');
$w->add_header( Referer => 'http://somesite.com' );
$w->get('http://website-url');

Answer 2

Это подкласс WWW::Mechanize, поэтому:

$w->add_header(Referer => "http://...");