论坛 › Perl › perl捕捉cookies

ywg 发表于 2018-8-31 10:01:53

perl捕捉cookies

　　#!/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 &quot;yes\n&quot;;
　　} else {
　　print &quot;Error: &quot;. $resp->status_line. &quot;\n&quot;;
　　}

查看完整版本: perl捕捉cookies