discuz论坛自动回贴perl版

n3tl04d

呵呵~~
写得不好，只是来玩玩的

1. #!/usr/bin/perl -w
   
2. 
   
3. use LWP;
   
4. use HTTP::Cookies;
   
5. 
   
6. print "="x70;
   
7. print "\n";
   
8. print "* 程序名:论坛自动回贴程序\n";
   
9. print "* 作 者:N3tl04d [url]http://smboy.bokee.com[/url]\n";
   
10. print "* 日 期:2007-11-23\n";
    
11. print "="x70;
    
12. print "\n";
    
13. 
    
14. if($#ARGV != 2){
    
15.     print "用法：$0 论坛地址 论坛已注册用户名 密码\n";
    
16.     print "如：$0 [url]http://smboy.bokee.com[/url] n3tl04d 123456\n";
    
17.     exit;
    
18. }
    
19. 
    
20. my $site=shift;
    
21. my $username=shift;
    
22. my $password=shift;
    
23. 
    
24. my @link;
    
25. my $formhash;
    
26. my @content=("我顶.灌水,哈哈","我是自动回贴的，吹吖","不错不错，好东西","哇！楼主好牛啊");#回复内容设定
    
27. my $ua=new LWP::UserAgent;
    
28. $ua->agent('Mozilla/5.0');
    
29. $ua->cookie_jar(new HTTP::Cookies);
    
30. my $test1=$ua->post( $site.'/logging.php?action=login&',
    
31.                                         [
    
32.                                         "referer"=>"index.php",
    
33.                                         "loginfield"=>"username",
    
34.                                         "username"=>$username,
    
35.                                         "password"=>$password,
    
36.                                         "questionid"=>"0",
    
37.                                         "answer"=>"",
    
38.                                         "cookietime"=>"2592000",
    
39.                                         "loginmode"=>"",
    
40.                                         "styleid"=>"",
    
41.                                         "loginsubmit"=>"提   交",
    
42.                                         ]
    
43.                                 );
    
44. 
    
45. $url=$site.'/forumdisplay.php?fid=2';
    
46. $url2=$site.'/forumdisplay.php?fid=3';
    
47. $url3=$site.'/forumdisplay.php?fid=4';
    
48. $url4=$site.'/forumdisplay.php?fid=5';
    
49. $res = $ua->get($url);
    
50. $html=$res->content;
    
51. $res = $ua->get($url2);
    
52. $html.=$res->content;
    
53. $res = $ua->get($url3);
    
54. $html.=$res->content;
    
55. $res = $ua->get($url4);
    
56. $html.=$res->content;
    
57. print "获取版块数据 \n";
    
58. 
    
59. die "抓不到formhash" unless $html  =~ m{formhash=([\d\w]{8})\"?}gi;
    
60. $formhash= $1;
    
61. 
    
62. if ($res->is_success) {
    
63.     my @html=split(/\n/,$html);
    
64.     @link=();
    
65.     for(@html){
    
66.         if (m{<a href="viewthread\.php\?tid=(\d+)&amp;extra=page%3D1">}){
    
67.             push(@link,$1);
    
68.         }
    
69.     }
    
70. 
    
71. print "挑出有用的数据 $#link 个 \n";
    
72. 
    
73. for ($x=0;$x<=$#link;$x++){
    
74.    
    
75.     my $url=$site."/viewthread.php?tid=$link[$x]&extra=page%3D1";
    
76.     my $res = $ua->get($url);
    
77.     my $content=$res->content;
    
78.     die "没发现贴子标题:" unless $content =~ m{<title>(.+?)\s-}gi;   
    
79.     $r_num=int(rand($#content));#随机取回复内容
    
80.     my $posturl=$site."/post.php?action=reply&fid=2&tid=$link[$x]&extra=page%3D1&replysubmit=yes&";
    
81.     my $response=$ua->post( $posturl,
    
82.     [
    
83.     "formhash"=>$formhash,
    
84.     "isblog"=>"",
    
85.     "readperm"=>"0",
    
86.     "price"=>"0",
    
87.     "typeid"=>"0",
    
88.     "subject"=>'Re:回复',
    
89.     "iconid"=>"0",
    
90.     "parseurloff"=>"0",
    
91.     "smileyoff"=>"0",
    
92.     "bbcodeoff"=>"0",
    
93.     "usesig"=>"1",
    
94.     "emailnotify"=>"0",
    
95.     "message"=>$content[$r_num],
    
96.     "toxiaban"=>"",
    
97.     "wysiwyg"=>"1",
    
98.     ]
    
99.     );
    
100.     if ($response->status_line eq '302 Found' || $response->status_line eq '200 OK') {
     
101.         print "贴子\"$1\"回贴成功!\n";
     
102.     }
     
103.     print "等待35秒 \n";
     
104.     sleep 35;
     
105. }
     
106. }

复制代码

fangdingj

不错，好像用 WWW::Mechanize模块能省很多代码