javascript - PerlでWWW::Scripterモジュールを使用してリファラーを設定するには?

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";

を実行する前にリファラーヘッダーを設定する必要がありgetます。または、 cookieなどの他のヘッダーも設定する必要があります。ドキュメントにはその方法がありません。ヘッダーを設定する方法が必要です。どのように？

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::Mechanizeso のサブクラスです:

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