perl 登录人人，并发送帖子

来源：互联网发布：cad迷你看图 mac 编辑：程序博客网时间：2024/05/01 05:56

#!/usr/bin/perl

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;

use Data::Dumper;

my $email = 'XXX@XXX';

my $password = 'XXX';

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';

#发送登录请求

my $res = $ua->post($login_url,{

'email'=>$email,

'password'=>$password,

'domain'=>$domain});

my $homepage;

# 判断响应头里面的location，确定是否登陆成功

if($res->header('Location') eq 'http://www.renren.com/Home.do'){

print 'login ok...',"\n";

$homepage = $ua->get('http://www.renren.com/home');

open RenRen, ">RenRen.html";

print Dumper($homepage);

print RenRen $homepage->{'_content'};

close RenRen;

}else{

exit;

}

#下面是发送帖子的代码

if($homepage->is_success){

my $pagect = $homepage->content;

$pagect =~ /id\s:\s"(\d+)"/g;

$hostid = $1;

$pagect =~ /requestToken\s:\s'(.+)'/g;

$requestToken = $1;

$pagect =~ /_rtk\s:\s'(.+)'/;

$rtk = $1;

}else{

exit;

}

while (1) {

my $purl = 'http://shell.renren.com/'.$hostid.'/status';

my ($sec,$min,$hour,$day,$mon,$year,$wday,$yday,$isdst) = localtime();

$year +=1900;

$mon++;

my $postret = $ua->post($purl,{

'content'=>"$year-$mon-$day $hour:$min:$sec.",

'hostid'=>$hostid,

'requestToken'=>$requestToken,

'_rtk'=>$rtk,

'channel'=>$channel});

if($postret->is_success){

print 'send ok...',"\n";

}else{

print 'fuck!';

}

sleep(10);

}

0 0