一个LWP的求助

lemontv

unread,

Feb 25, 2010, 3:34:35 AM2/25/10

to PerlChina Mongers 讨论组

#!/usr/bin/perl

use strict;
use warnings;
use LWP;
use LWP::ConnCache;
use HTTP::Cookies;

my $url = 'http://www.renren.com/PLogin.do';
my $url2 = 'http://upload.renren.com/ReplyPost.do?thread=330492221';
my $url3 = 'http://group.renren.com/GetThread.do?
id=330492221&tribeId=283371586';
my $browser = LWP::UserAgent->new();
$browser->agent("Mozilla/5.0 (X11; U; Linux i686; zh-CN; rv:1.9.2)
Gecko/20100115 Firefox/3.6 GTB7.0");
$browser->cookie_jar(HTTP::Cookies->new());
$browser->conn_cache(LWP::ConnCache->new());
push @{$browser->requests_redirectable}, 'POST';
my $response = $browser->post($url,[
'email'=>'xxxx',
'password'=>'xxxx',
'origURL'=>'http://www.renren.com/Home.do',
'domain'=>'renren.com'],
);
my $resp = $browser->get($url3);
my $ak;
my $ac;
my $tsc_a;
my $groupAuTime;
my $at;
if($resp->content=~/name="ak" value="(\w+)"/){
$ak = $1;
}
if($resp->content=~/id="ac" value="(\w+)"/){
$ac = $1;
}
if($resp->content=~/id="tsc_a" value="(\w+)"/){
$tsc_a = $1;
}
if($resp->content=~/name="groupAuTime" value="(\w+)"/){
$groupAuTime = $1;
$at = $groupAuTime;
$at=~s/b/2/g;
}
#print "ak=$ak\nac=$ac\ntsc=$tsc_a\nGAT=$groupAuTime\n";
#print $resp->content;
$resp = $browser->post($url2,[
'body'=>'52000',
'citeid'=>'0',
'citename'=>'',
'submit'=>'',
'theFile'=>['bk.jpg'],
'ak'=>"$ak",
'tsc'=>"$tsc_a",
'ac'=>"$ac",
'groupAuTime'=>"$groupAuTime",
'at'=>"$at",
'tribeId'=>'283371586',
'curpage'=>'0',
],
'Content_Type'=>'form-data'
);
#print $resp->content;
print $resp->status_line;

人人品牌专区的自动回帖代码
'email'=>'xxxx',
'password'=>'xxxx',
帐号密码我就不提供了。
下面的是测试的目标贴
http://group.renren.com/GetThrea ... p;tribeId=283371586

经过一些抓包分析，发现可能是theFile有问题，浏览器发送的包theFile的值是空的，但我搞不定这个，有人帮忙看看么？
分析了一下，觉得有可能是回帖时候有些javascript没处理，javascript不懂，有没有人帮忙看看？

陈臻

unread,

Feb 25, 2010, 8:59:48 PM2/25/10

to perl...@googlegroups.com

勿作恶

> --
> 您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
> 要向此网上论坛发帖，请发送电子邮件至 perl...@googlegroups.com。
> 要取消订阅此网上论坛，请发送电子邮件至 perlchina+...@googlegroups.com。
> 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
>
>

--
-
http://www.54chen.com
http://twitter.com/54chen