如何使用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;