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...

  • 相关阅读:
    GPG实践
    keepass口令管理实践
    2019-2020 20191204《信息安全导论》第十一周学习总结
    2019-2020 20191204第十周学习总结
    2019-2020 20191211第八周学习总结
    熟悉编程语言
    斐波那契数列
    辗转相除法
    20191210_获奖感言及学习总结
    2019-2020-1 20191210第11周学习总结
  • 原文地址:https://www.cnblogs.com/hzcya1995/p/13351531.html
Copyright © 2011-2022 走看看