zoukankan      html  css  js  c++  java
  • perl 登入人人网

    [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 "---------------
    ";
    print $res->header('Location');
    print "---------------
    ";
    
    if($res->header('Location') eq 'http://www.renren.com/Home.do'){
        print 'login ok...',"
    ";
        $homepage = $ua->get('http://www.renren.com/home'); 
    }else{
        exit;
    }
    [root@master test]# perl 3.pl 
    ---------------
    http://www.renren.com/Home.do---------------
    login ok...

  • 相关阅读:
    BZOJ2456: mode 众数卡空间
    BZOJ4128: Matrix 矩阵BSGS
    [SDOI2011]计算器 BSGS
    前台中文搜索到后台乱码
    批量删除实现js+springmvc
    基于Jquery+Ajax+Json实现分页显示
    分页条的制作
    input text中不能显示空格后的内容
    mysql存入中文乱码问题
    WEBROOT根目录 <%=request.getContextPath()%>
  • 原文地址:https://www.cnblogs.com/hzcya1995/p/13351531.html
Copyright © 2011-2022 走看看