Mechanize 模块可以提交form，实现登录功能

最新推荐文章于 2018-05-15 17:20:49 发布

qq312788172

最新推荐文章于 2018-05-15 17:20:49 发布

阅读量196

点赞数

分类专栏： perl 文章标签： Windows Firefox Perl JSP .net

本文链接：https://blog.csdn.net/qq312788172/article/details/83737257

版权

perl 专栏收录该内容

29 篇文章 0 订阅

订阅专栏

Mechanize 模块可以提交form，实现登录功能：


#!/usr/bin/perl
BEGIN {

	# Set our common library path.
	unshift @INC, './lib';
}

require HTTP::Request;
require HTTP::Response;
require HTTP::Headers;
require HTTP::Cookies;
require LWP;
use WWW::Mechanize;
use Data::Dumper;
use Encode;

#my $ua = LWP::UserAgent->new;
#
#$ua->agent(
#'Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.9.2.11) Gecko/20101012 Firefox/3.6.11 GTB7.1 ( .NET CLR 3.5.30729)'
#);
#my $login_response = $ua->post(
#	'http://www.zeel.jp/outlet/item.jsp?GOODS_NO=88636&dispNo=010010001035',
#	'Cookie' => 'JSESSIONID=E0A35234BD47293353BA5B87541C8BA9',
#);
#
#if ($login_response->is_success){
#	print decode ('Shift_JIS',Dumper $login_response);
#} else {
#	print 456;
#}

my $mech = WWW::Mechanize->new(
	agent =>
	  'Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.9.2.11) Gecko/20101012 Firefox/3.6.11 GTB7.1 ( .NET CLR 3.5.30729)',
	cookie_jar => {}
);
print 11;
$mech->get('http://www.zeel.jp/select/');

$mech->dump_forms( );
$mech->dump_links(undef,1);


print 22;

$mech->form_number(1);
$mech->field( ID  => 'kankan' );
$mech->field( PWD => 'kankan' );
$mech->click("Submit");

print "After Login Cookie: ";
print $mech->cookie_jar->as_string();
print "\n";

my $searchURL = 'http://www.zeel.jp/outlet/item.jsp?GOODS_NO=88636&dispNo=010010001035';
my $res = $mech->get($searchURL);
print "After Search Cookie: ";
print $mech->cookie_jar->as_string();
print "\n";
print decode('Shift_JIS',$res->content);