[SOLVED]Perl submit form fail

alvinrxg

页面部分内容如下

1. <div class="txd">
   
2.         <form name="comment_form" method="post" action="add_comment">                        [color=Blue]### <- here action... ###[/color]
   
3.                 <div style="display:none;">
   
4.                         <input type="hidden" name="ck" value="J2NL"/>
   
5.                 </div>
   
6.                 <textarea id="last" name="rv_comment" rows="8" cols="54"></textarea><br/>
   
7.                 <input type="hidden" name="start" value="0"/>
   
8.                 <input type="submit" value="Submit"/>
   
9.         </form>
   
10. </div>
    

复制代码

我想对此在textarea中提交一点内容.
以下是我的方案：

1. use LWP;
   
2. use LWP::Simple;
   
3. use HTTP::Cookies;
   
4. 
   
5. my $ua = LWP::UserAgent -> new();
   
6. my $my_url = "http://www.***.com";
   
7. 
   
8. #......#
   
9. 
   
10. my $resp = $ua->post(
    
11.         "$my_url/add_comment",                                [color=Blue]### <-- here ###[/color]
    
12.         [
    
13.                 'ck' => "J2NL",
    
14.                 'rv_comment' => "auto test",
    
15.                 'start' => "0"
    
16.         ]
    
17. );
    

复制代码

代码能成功执行，但不知道为什么，内容并没有成功提交上去。(页面登陆时用户名和密码都能成功提交的)
返回的 $resp->status_lines 是 302 Found
请各位大侠帮忙，我该如何针对那段内容来提交？{

-----------------------------------------------------------------
感谢版主的提议，通过抓包分析并更正了错误。

[ 本帖最后由 alvinrxg 于 2009-12-28 04:52 编辑 ]

兰花仙子

首先加上use strict和use warnings.

302是页面重定向了，你要跟踪这个redirection.

如果单纯是如上表单的话，LWP post没任何问题。
如果牵涉到redirect或登录验证之类的，就要抓包分析其过程(HTTPWatch).

kkndmammoth

push @{ $browser->requests_redirectable }, 'POST';

ulmer

Do not forget this hidden parameter:

<input type="hidden" name="start" value="0"/>

Maybe server site will check this parameter.
Adding it in the ..->post(..., "start"=>0) and try again.

[ 本帖最后由 ulmer 于 2009-12-26 01:49 编辑 ]

alvinrxg

原帖由 兰花仙子 于 2009-12-25 23:14 发表
首先加上use strict和use warnings.

302是页面重定向了，你要跟踪这个redirection.

如果单纯是如上表单的话，LWP post没任何问题。
如果牵涉到redirect或登录验证之类的，就要抓包分析其过程(HTTPWatch).

呃，我不会跟踪……

原帖由 ulmer 于 2009-12-26 01:22 发表
Do not forget this hidden parameter:

Maybe server site will check this parameter.
Adding it in the ..->post(..., "start"=>0) and try again.

不行呃，还是失败了。

------------------------------------------------------------------
哪位大侠也玩“豆瓣”的，帮我看看回帖该怎么提交……
想帮朋友搞个东东，监视他发的几百个帖子，如果别人有回复了，就提醒下，然后在监视程序里回复该回复。