perl捕捉cookies

发布时间：2020-12-15 21:02:10 所属栏目：大数据来源：网络整理

导读：#!/usr/bin/perl -w use strict; use LWP::UserAgent; use HTTP::Cookies; use HTTP::Request::Common; my $cookies = HTTP::Cookies-new( ??????? file = "cookies.txt", ??????? autosave = 1, ??????? ); my $ua = LWP::UserAgent-new(); $ua-cookie_jar(

#!/usr/bin/perl -w
use strict;
use LWP::UserAgent;
use HTTP::Cookies;
use HTTP::Request::Common;

my $cookies = HTTP::Cookies->new(
??????? file => "cookies.txt",
??????? autosave => 1,
??????? );
my $ua = LWP::UserAgent->new();
$ua->cookie_jar($cookies);

my $req = HTTP::Request->new(GET => "http://www.baidu.com/"); my $resp = $ua->request($req); if (( $resp->code() >= 200 ) && ($resp->code() < 400)) { ??????? print "yesn"; } else { ??????? print "Error: ". $resp->status_line. "n"; } ?

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!