如何使用Perl的LWP :: Simple發送cookies？

Question

use LWP::Simple; 
use HTML::LinkExtor; 
use Data::Dumper; 
#my $url = shift @ARGV; 
my $content = get('example.com?GET=whateverIwant'); 
my $parser = HTML::LinkExtor->new(); #create LinkExtor object with no callbacks 
$parser->parse($content); #parse content 

現在如果我要發送POST和COOKIE信息以及與HTTP標頭我怎麼能配置與GET功能可按？還是必須自定義我自己的方法？

我的主要興趣是餅乾！然後發佈！

Answer 1

LWP::Simple是非常簡單的HTTP GET請求。如果你需要做更復雜的事情（如cookies），你必須升級到完整的LWP::UserAgent。 cookie_jar是一個HTTP::Cookies對象，您可以使用它的set_cookie方法添加一個cookie。

use LWP::UserAgent; 

my $ua = LWP::UserAgent->new(cookie_jar => {}); # create an empty cookie jar 

$ua->cookie_jar->set_cookie(...); 

my $rsp = $ua->get('example.com?GET=whateverIwant'); 
die $rsp->status_line unless $rsp->is_success; 
my $content = $rsp->decoded_content; 
... 

LWP :: UserAgent還有一個post方法。

Answer 2

您可能需要使用WWW::Mechanize代替。它已經粘在你想要的東西的大部分：

use WWW::Mechanize; 

my $mech = WWW::Mechanize->new(
    cookie_jar => { ... } 
    ); 

$mech->cookie_jar->set_cookie(...); 

$mech->get(...); 

my @links = $mech->links;