perl 登录盈盈理财
来源:互联网 发布:mac做思维导图的工具 编辑:程序博客网 时间:2024/04/28 08:58
#!/usr/bin/perl
use LWP;
use LWP::Simple;
use LWP::UserAgent;
use HTTP::Cookies;
use HTTP::Headers;
use HTTP::Response;
use utf8;
use Encode;
use URI::Escape;
use URI::URL;
use Data::Dumper;
my $cell="XXX";
my $password="XXX";
my $token='';
my $var='';
my $ua = LWP::UserAgent->new;
$ua->agent("Mozilla/5.0 (Windows NT 6.1; rv:30.0) Gecko/20100101 Firefox/30.0");
my $cookie_jar=HTTP::Cookies->new(
file=>'lwp_cookies.txt',
autosave=>1,
ignore_discard=>1
);
$ua->cookie_jar($cookie_jar);
my $login_url="https://licai.yingyinglicai.com/user/loginByPwd.do";
my $res = $ua->get($login_url);
if( $res->is_success ) {
$var = $res->decoded_content;
if ($var =~/.*token"\s+value="(.*?)"/.*/) {
print "\$1 is $1\n";
$token=$1;
}
}
$res = $ua->post($login_url,{
'cell'=>$cell,
'password'=>$password,
'token'=>$token
});
print $res->header('Location'),"\n";
if( $res->header('Location') eq 'http://licai.yingyinglicai.com/index.htm' ) {
print "YES";
$homepage = $ua->get('https://licai.yingyinglicai.com/index.htm');
open YY, '>yinyin.html';
print YY $homepage->decoded_content;
close YY;
}
0 0
- perl 登录盈盈理财
- perl 自动登录盈盈理财
- 登录盈盈理财
- 【R语言爬虫】R语言提交post请求抓取盈盈理财数据
- perl 爬取某理财网站产品信息
- 验证用户登录(perl)
- perl 登录某网站
- 某理财公司的登录请求
- 理财
- 理财
- 理财
- 理财
- 理财
- 理财
- 理财
- 理财~
- 理财
- 理财
- Linux设备文件简介
- MySQL索引原理与慢查询优化
- perl 爬取 csdn 博客
- NSDictionary和NSMutableDictionary
- linux 利用 logrotate 管理日志
- perl 登录盈盈理财
- 驾照考试:从科目一到科目四,全都是你要了解的!!(全干货)
- perl 读取图片
- 《数据结构》进行曲--带头结点的单循环链表的基本操作
- Object-C文件操作
- perl print 与 加减乘除
- 第一章 欢迎来的Code First(4)
- 处理多个网络请求的并发的情况
- 驾照考试:科目二考试注意事项