Perl China Blog Spot: 2010-02-21

2010年2月27日星期六

[PerlChina] Re: 一个LWP的求助

谢谢，问题已经解决了，添加了一行Referer。
On 2月26日, 下午1时10分, "Qiang (James)" <shijia...@gmail.com> wrote:
> lemontv wrote:
>
> > 经过一些抓包分析，发现可能是theFile有问题，浏览器发送的包theFile的值是空的，但我搞不定这个，有人帮忙看看么？
> > 分析了一下，觉得有可能是回帖时候有些javascript没处理，javascript不懂，有没有人帮忙看看？
>
> 如果有 js，你就把 js 的逻辑读懂，看往哪提交或加什么参数就行了。js 也不是
> 那么难读。
>
> Qiang(James)

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

[PerlChina] Re: 一个LWP的求助

我也在研究这个，你也在搞？

On 2月28日, 下午12时27分, zhihua zheng <zhihua.zh...@gmail.com> wrote:
> 有图片做验证码的，怎么搞定？多谢了！
>
> On 2/25/10, lemontv <lemontv.msn....@gmail.com> wrote:
>
> > #!/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不懂，有没有人帮忙看看？
>
> > --
> > 您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
> > 要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
> > 要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
> > 若有更多问题，请通过http://groups.google.com/group/perlchina?hl=zh-CN访问此网上论坛。

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

[PerlChina] Re: 一个LWP的求助

去猜这个图片呗，有些麻烦

On Feb 28, 12:27 pm, zhihua zheng <zhihua.zh...@gmail.com> wrote:
> 有图片做验证码的，怎么搞定？多谢了！
>
> On 2/25/10, lemontv <lemontv.msn....@gmail.com> wrote:
>
> > #!/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不懂，有没有人帮忙看看？
>
> > --
> > 您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
> > 要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
> > 要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
> > 若有更多问题，请通过http://groups.google.com/group/perlchina?hl=zh-CN访问此网上论坛。

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

Re: [PerlChina] 一个LWP的求助

有图片做验证码的，怎么搞定？多谢了！

On 2/25/10, lemontv <lemontv.msn.com@gmail.com> wrote:
> #!/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不懂，有没有人帮忙看看？
>
> --
> 您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
> 要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
> 要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
> 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
>
>

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

2010年2月25日星期四

Re: [PerlChina] perlchina@googlegroups.com 的简略摘要 - “1 个主题”有 4 个帖子

在 2010年2月26日下午3:09， <perlchina+noreply@googlegroups.com>写道：

今日主题摘要

网上论坛: http://groups.google.com/group/perlchina/topics

一个LWP的求助 [4 条更新]

主题: 一个LWP的求助

lemontv <lemontv.msn.com@gmail.com> Feb 25 12:34AM -0800 ^

#!/usr/bin/perl

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

my $url = 'http://www.renren.com/PLogin.do'; 更多...

陈臻 <czhttp@gmail.com> Feb 26 09:59AM +0800 ^

勿作恶

在 2010年2月25日下午4:34，lemontv <lemontv.msn.com@gmail.com> 写道：

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

"Qiang (James)" <shijialee@gmail.com> Feb 26 01:10PM +0800 ^

lemontv wrote:

> 经过一些抓包分析，发现可能是theFile有问题，浏览器发送的包theFile的值是空的，但我搞不定这个，有人帮忙看看么？更多...

"xsir317" <xsir317@163.com> Feb 26 02:28PM +0800 ^

firefox装一个Live Http Headers看看你发帖的时候提交的请求是什么样的，然后用脚本原样提交个请求。。。

不用管页面js～
更多...

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

谢谢回复，我已经搞定了，单词拼错一个了，js的确也有问题，经过排除也搞定了。

--
by lemontv

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

Re: Re: [PerlChina] 一个LWP的求助

firefox装一个Live Http Headers看看你发帖的时候提交的请求是什么样的，然后用脚本原样提交个请求。。。

不用管页面js～

有的页面js还真的是很难读懂，尤其是用了一些你不熟悉的js框架的时候。。。

2010-02-26

中华连珠网

五子棋百科

发件人： Qiang (James)

发送时间： 2010-02-26 13:10:26

收件人： perlchina@googlegroups.com

抄送：

主题： Re: [PerlChina] 一个LWP的求助

lemontv wrote:

> 经过一些抓包分析，发现可能是theFile有问题，浏览器发送的包theFile的值是空的，但我搞不定这个，有人帮忙看看么？

> 分析了一下，觉得有可能是回帖时候有些javascript没处理，javascript不懂，有没有人帮忙看看？

如果有 js，你就把 js 的逻辑读懂，看往哪提交或加什么参数就行了。js 也不是

那么难读。

Qiang(James)

您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。

要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。

要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。

若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

Re: [PerlChina] 一个LWP的求助

lemontv wrote:

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

如果有 js，你就把 js 的逻辑读懂，看往哪提交或加什么参数就行了。js 也不是
那么难读。

Qiang(James)

Re: [PerlChina] 一个LWP的求助

勿作恶

在 2010年2月25日下午4:34，lemontv <lemontv.msn.com@gmail.com> 写道：
> #!/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不懂，有没有人帮忙看看？
>
> --
> 您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
> 要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
> 要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
> 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
>
>

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

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

[PerlChina] 一个LWP的求助

#!/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不懂，有没有人帮忙看看？

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

2010年2月24日星期三

Re: [PerlChina] 如何用CGI解析web 表单的name属性？

做一个 hidden input 项，比如：
<input type="hidden" name="form1" value="1">

类似这样

2010/2/24 Fangyuan <chengfangyuan2008@gmail.com>

新年好！
问个CGI的问题：
一个web form，给定一个name属性
用CGI处理这个表单时，怎么获取这个表单的名称呢？
我的目的是：一个页面会处理多个表单，我想知道分辨出它是哪个表单。
e.g.
# form content
<form method="post" action="parse.html" name="form1">
.....
</form>

# parse forms using CGI
my $query = CGI->new();
my $form_name = $query->param('form1'); # it does not work, $form_name
eq NULL

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

[PerlChina] Re: 如何用CGI解析web 表单的name属性？

谢谢perlchina群的吊带，他提供了一个方法，在每个表单中加入一个hidden标签以示区别，THX。

On Feb 24, 7:37 pm, Fangyuan <chengfangyuan2...@gmail.com> wrote:
> 新年好！
> 问个CGI的问题：
> 一个web form，给定一个name属性
> 用CGI处理这个表单时，怎么获取这个表单的名称呢？
> 我的目的是：一个页面会处理多个表单，我想知道分辨出它是哪个表单。
> e.g.
> # form content
> <form method="post" action="parse.html" name="form1">
> .....
> </form>
>
> # parse forms using CGI
> my $query = CGI->new();
> my $form_name = $query->param('form1'); # it does not work, $form_name
> eq NULL

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

[PerlChina] 如何用CGI解析web 表单的name属性？

新年好！
问个CGI的问题：
一个web form，给定一个name属性
用CGI处理这个表单时，怎么获取这个表单的名称呢？
我的目的是：一个页面会处理多个表单，我想知道分辨出它是哪个表单。
e.g.
# form content
<form method="post" action="parse.html" name="form1">
.....
</form>

# parse forms using CGI
my $query = CGI->new();
my $form_name = $query->param('form1'); # it does not work, $form_name
eq NULL

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

2010年2月23日星期二

答复: 答复: [PerlChina] CPAN上哪个PayPal模块较好点？

不过我们用的不是这个，用的是合作伙伴的接口。

发件人: 3f6wdswgjcfmmzydxvknbhvdg.xjhkzmgxcdivbjjbgzbmjpkn.xjh@groups.bounces.google.com [mailto:3f6wdswgjcfmmzydxvknbhvdg.xjhkzmgxcdivbjjbgzbmjpkn.xjh@groups.bounces.google.com] 代表 woosley. xu.
发送时间: 2010年2月23日 17:53
收件人: perlchina@googlegroups.com
主题: Re: 答复: [PerlChina] CPAN上哪个PayPal模块较好点？

噢，alipay现在有官方的api吗

在 2010年2月23日下午3:51，宇捷 <hfahe@163.com>写道：

Beckheng Lam wrote:
> 搜索了一下，发现有几个，不知道哪个更好用一点？ :-)
>

都是在 Business::PayPal 名下的。你要先了解 Paypal API，找到你需要的是那
个模块，比如 Business::PayPal::IPN。我看 Catalyst 有一个 B::P::IPN 的插
件，估计这个模块还是有用处的。

Qiang

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

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

--
Woosley.Xu

答复: 答复: [PerlChina] CPAN上哪个PayPal模块较好点？

有啊

http://club.alipay.com/showThread.htm?thread=6358259&forum=134&message=62214051#post62214051

噢，alipay现在有官方的api吗

在 2010年2月23日下午3:51，宇捷 <hfahe@163.com>写道：

--
Woosley.Xu

Re: 答复: [PerlChina] CPAN上哪个PayPal模块较好点？

噢，alipay现在有官方的api吗

在 2010年2月23日下午3:51，宇捷 <hfahe@163.com>写道：

原来还有paypal的模块，我们alipay、yeepay、paypal都是自己实现的。

-----邮件原件-----
发件人:
3gokdswkjcwsbqrsrjunnpvjru.lxvynaulqrwjpxxpunpaxdyb.lxv@groups.bounces.googl
e.com
[mailto:3gokdswkjcwsbqrsrjunnpvjru.lxvynaulqrwjpxxpunpaxdyb.lxv@groups.bounc
es.google.com] 代表 Qiang (James)
发送时间: 2010年2月23日 15:23
收件人: perlchina@googlegroups.com
主题: Re: [PerlChina] CPAN上哪个PayPal模块较好点？

Beckheng Lam wrote:
> 搜索了一下，发现有几个，不知道哪个更好用一点？ :-)
>

都是在 Business::PayPal 名下的。你要先了解 Paypal API，找到你需要的是那
个模块，比如 Business::PayPal::IPN。我看 Catalyst 有一个 B::P::IPN 的插
件，估计这个模块还是有用处的。

Qiang

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

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

--
Woosley.Xu

2010年2月22日星期一

答复: [PerlChina] CPAN上哪个PayPal模块较好点？

原来还有paypal的模块，我们alipay、yeepay、paypal都是自己实现的。

-----邮件原件-----
发件人:
3gokdswkjcwsbqrsrjunnpvjru.lxvynaulqrwjpxxpunpaxdyb.lxv@groups.bounces.googl
e.com
[mailto:3gokdswkjcwsbqrsrjunnpvjru.lxvynaulqrwjpxxpunpaxdyb.lxv@groups.bounc
es.google.com] 代表 Qiang (James)
发送时间: 2010年2月23日 15:23
收件人: perlchina@googlegroups.com
主题: Re: [PerlChina] CPAN上哪个PayPal模块较好点？

Beckheng Lam wrote:
> 搜索了一下，发现有几个，不知道哪个更好用一点？ :-)
>

都是在 Business::PayPal 名下的。你要先了解 Paypal API，找到你需要的是那
个模块，比如 Business::PayPal::IPN。我看 Catalyst 有一个 B::P::IPN 的插
件，估计这个模块还是有用处的。

Qiang

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

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

Re: [PerlChina] CPAN上哪个PayPal模块较好点？

Beckheng Lam wrote:
> 搜索了一下，发现有几个，不知道哪个更好用一点？ :-)
>

都是在 Business::PayPal 名下的。你要先了解 Paypal API，找到你需要的是那
个模块，比如 Business::PayPal::IPN。我看 Catalyst 有一个 B::P::IPN 的插
件，估计这个模块还是有用处的。

Qiang

[PerlChina] CPAN上哪个PayPal模块较好点？

搜索了一下，发现有几个，不知道哪个更好用一点？ :-)

--
Perl乐事 -- http://www.perlersh.org
我的博客 -- http://www.perlersh.org/blog.html
诸法从缘起，如来说是因。
彼法因缘尽，是大沙门说。

订阅：博文 (Atom)

2010年2月27日星期六

2010年2月25日星期四

2010年2月24日星期三

2010年2月23日星期二

2010年2月22日星期一

订阅

博客归档