如何使用 Perl 的 LWP::Simple 发送 cookie？

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 请求。如果您需要执行任何更复杂的操作（例如 cookie），则必须升级到完整的 LWP ::用户代理。 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;

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

 $mech->get( ... );

 my @links = $mech->links;