![](/img/trans.png)
[英]How to maintain cookies during redirects using perl's LWP::UserAgent?
[英]How can I send cookies with Perl's LWP::Simple?
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 funciton配置它? 或者我必須自定義我自己的方法?
我的主要興趣是Cookies! 發帖!
LWP :: Simple適用於非常簡單的HTTP GET請求。 如果您需要執行更復雜的操作(如cookie),則必須升級到完整的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
方法。
您可能希望使用WWW :: Mechanize 。 它已經粘合了你想要的大部分東西:
use WWW::Mechanize;
my $mech = WWW::Mechanize->new(
cookie_jar => { ... }
);
$mech->cookie_jar->set_cookie(...);
$mech->get( ... );
my @links = $mech->links;
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.