perl登录人人并发状态

大佬教程收集整理的这篇文章主要介绍了perl登录人人并发状态，大佬教程大佬觉得挺不错的，现在分享给大家，也给大家做个参考。

#!/usr/bin/perl

# Copyright 2014 tkorays. All rights reserved.
# author tkorays
# email [email protected]

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 = '***@**.com';
my $password = '***';
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;	
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;
}
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;	
}

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'=>"renren test,by perl script,author:tkorays,date:$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!';
}

大佬总结

以上是大佬教程为你收集整理的perl登录人人并发状态全部内容，希望文章能够帮你解决perl登录人人并发状态所遇到的程序开发问题。

如果觉得大佬教程网站内容还不错，欢迎将大佬教程推荐给程序员好友。

本图文内容来源于网友网络收集整理提供，作为学习参考使用，版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ：384754419，请注明来意。