如何在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等。我在documentation中沒有看到如何操作。必須有一種方法，如何設置標題。怎麼樣？

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://...");