perl 登入人人网
发布时间:2020-12-15 23:42:31 所属栏目:大数据 来源:网络整理
导读:[root@master test]# cat 3.pl #!/usr/bin/perl# Copyright 2014 tkorays. All rights reserved.# author tkorays# email tkorays@hotmail.comuse strict;use warnings;use LWP;use LWP::Simple;use LWP::UserAgent;use HTTP::Cookies;use HTTP::Headers;use
[root@master test]# cat 3.pl #!/usr/bin/perl # Copyright 2014 tkorays. All rights reserved. # author tkorays # email tkorays@hotmail.com use strict; use warnings; use LWP; use LWP::Simple; use LWP::UserAgent; use HTTP::Cookies; use HTTP::Headers; use HTTP::Response; use Encode; use URI::Escape; use URI::URL; my $email = 'zhao.yangjian@163.com'; my $password = 'xxxxx'; my $domain = 'renren.com'; my $hostid=''; my $requestToken=''; my $rtk=''; my $channel='renren'; 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 = 'http://www.renren.com/PLogin.do'; # 这里面没有判断是否需要验证码,聪明的你学完后肯定知道怎么搞定的 # 人人是post登陆的,第一个参数是登陆的地址,第二个参数是一个匿名hash my $res = $ua->post($login_url,{ 'email'=>$email,'password'=>$password,'domain'=>$domain}); my $homepage; # 判断响应头里面的location,确定是否登陆成功 print "---------------n"; print $res->header('Location'); print "---------------n"; if($res->header('Location') eq 'http://www.renren.com/Home.do'){ print 'login ok...',"n"; $homepage = $ua->get('http://www.renren.com/home'); }else{ exit; } [root@master test]# perl 3.pl --------------- http://www.renren.com/Home.do--------------- login ok... (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |