perl – 如何使用LWP设置User-Agent?
发布时间:2020-12-15 22:05:20 所属栏目:大数据 来源:网络整理
导读:我有Perl LWP书,但如何设置用户代理字符串? 这就是我所拥有的: use LWP::UserAgent;use LWP::Simple; # Used to download filesmy $u = URI-new($url);my $response_u = LWP::UserAgent-new-get($u);die "Error: ",$response_u-status_line unless $respon
我有Perl& LWP书,但如何设置用户代理字符串?
这就是我所拥有的: use LWP::UserAgent; use LWP::Simple; # Used to download files my $u = URI->new($url); my $response_u = LWP::UserAgent->new->get($u); die "Error: ",$response_u->status_line unless $response_u->is_success; 任何建议,如果我想像我这样使用LWP :: UserAgent? 解决方法
从
LWP cookbook:
use LWP::UserAgent; $ua = new LWP::UserAgent; $ua->agent("$0/0.1 " . $ua->agent); # $ua->agent("Mozilla/8.0") # pretend we are very capable browser $req = new HTTP::Request 'GET' => 'http://www.sn.no/libwww-perl'; $req->header('Accept' => 'text/html'); # send request $res = $ua->request($req); (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |