用perl在discuz发帖子有什么需要注意点的地方么？

yz86yz

用抓包工具看到post的时候有个formhash，这个已经在发帖前在网页源代码里面提取到了。
问题是post过去后我发的帖子并没有出现？
并且 $response->status_line; 返回状态是200

[ 本帖最后由 yz86yz 于 2009-12-25 15:31 编辑 ]

yz86yz

#!/usr/bin/perl use strict; use warnings; print "Hello, World...n"; use LWP::UserAgent; use HTTP::Cookies; my %ua_option = ( agent => "Mozilla/4.0", timeout => 180, ); my $ua = LWP::UserAgent->new(%ua_option); push @{$ua->requests_redirectable() }, 'POST'; $ua -> cookie_jar( HTTP::Cookies->new(     'file' => 'cookies.lwp',         # where to read/write cookies     'autosave' => 1,         # save it to disk when done   )); my $myurl="http://bbs.88888.com/index.php"; my $formhash=""; my $formhash_1=""; my $cookietime=""; my $res = $ua->get ($myurl); my @login_page = split (/\n/,$res->content); foreach (@login_page) {         if (/formhash" w+="(w+)"/){                   $formhash = $1;         if (/cookietime" w+="(w+)"/)           {                   $cookietime = $1;                       } my $response = $ua ->post ($myurl,[ 'cookietime' =>$cookietime, 'formhash' =>$formhash, 'loginfield' =>'username', 'password'=>'88888', 'username' =>'8888', ]); die "url error: ", $response->status_line    unless $response->is_success;   my $url_1="http://bbs.8888.com/thread-1428131-21-1.html";   $res = $ua->get ($url_1);   my @post_page = split (/\n/,$res->content);   foreach (@post_page) {         if (/formhash=([wd]{8})/){                   $formhash_1 = $1;                   print "Find hash1: $formhash_1 n";}                        }   $response = $ua ->post ($url_1,[ 'formhash' =>$formhash_1, 'message' =>'恭喜发财啊 哈哈哈哈', 'subject' =>'1t1t',    ]); if ($response ->is_success) {     my $content_1=$response->status_line;     print "$content_1 n"; }

[ 本帖最后由 yz86yz 于 2009-12-25 15:37 编辑 ]

xp5211314

用telnet发过SMTH BBS的帖子 这个倒是没用过，不过用lwp肯定得行