用perl在论坛发贴

笨狗

想用perl做一个论坛发贴的程序,对方论坛是discuz
程序如下

1. 
   
2. #!c:\perl\bin\perl.exe
   
3. 
   
4. use LWP;
   
5. use HTTP::Cookies;
   
6. 
   
7. $tid = 161531;
   
8. $message = 'dddddd';
   
9. $url = qq(http://www.dolc.de/forum/post.php?action=reply&fid=139&tid=$tid&replysubmit=yes);
   
10. 
    
11. my $browser = LWP::UserAgent->;new;
    
12. 
    
13. $browser->;cookie_jar({});
    
14. $browser->;agent('Mozilla/4.0 (compatible; MSIE 6.0; Windws NT 5.1)');
    
15. 
    
16. 
    
17. my $response = $browser->;post( $url,
    
18.    [
    
19.      'formhash' =>; '429acff1',
    
20.      'message' =>; $message,
    
21.    ],
    
22. );
    
23. 
    
24. if ($response->;is_success) {
    
25.         print "success\n";
    
26.         print $response->;content;
    
27. } else {
    
28.         print $response->;status_line;
    
29. }
    

复制代码

程序返回结果说没有登陆
应该是没有cookie,应该怎么发送cookie
看了这篇文章http://www.perlchina.org/archive ... archive&page=15, 还是很不解, 是不是可以把机子上过去登录的cookie文件copy出来,然后指定这个文件的路径?
谢谢

Qiang

内存式的 cookie 使用方法:

   $browser->;cookie_jar({});

调用上面这一行就会让当前这个 lwp 的 instance 自动记住 cookie. 你根本不用做其他的。

笨狗

you say the instance will automatic remenber the cookie? But where come from this cookie? From the Browser cookie? How know it, which cookie is the right one?
Thank you

tiw

use HTTP::Cookies::Netscape;
my $cookie_jar = HTTP::Cookies::Netscape->;new(
'file' =>; 'c:/program files/netscape/users/me/cookies.txt'
);
$browser->;cookie_jar($cookie_jar);
可以读取netscape格式的cookie文件

笨狗

netscape格式的cookie文件

Is it the same format as cookie of IE?

tiw

原帖由 "笨狗" 发表：

Is it the same format as cookie of IE?

This can be used for Cookie file produce by mozilla, firefox, netscape.
For IE i have on idea.

笨狗

原帖由 "tiw" 发表：

This can be used for Cookie file produce by mozilla, firefox, netscape.
For IE i have on idea.

thanks a lot for your reply.
I will try later with firefox.

笨狗

成功了,把代码贴出来

1. 
   
2. #!c:\perl\bin\perl.exe
   
3. 
   
4. use LWP;
   
5. use HTTP::Cookies;
   
6. use HTTP::Cookies::Netscape;
   
7. 
   
8. $tid = 161531;
   
9. $message = 'dddddd';
   
10. $url = qq(http://www.dolc.de/forum/post.php?action=reply&fid=139&tid=$tid&replysubmit=yes);
    
11. 
    
12. my $browser = LWP::UserAgent->;new;
    
13. 
    
14. my $cookie_jar = HTTP::Cookies::Netscape->;new(
    
15. 'file' =>; 'cookies.txt'
    
16. );
    
17. 
    
18. $browser->;cookie_jar($cookie_jar);
    
19. $browser->;agent('Mozilla/4.0 (compatible; MSIE 6.0; Windws NT 5.1)');
    
20. 
    
21. 
    
22. 
    
23. my $response = $browser->;post( $url,
    
24.    [
    
25.      'formhash' =>; '429acff1',
    
26.      'message' =>; $message,
    
27.    ],
    
28. );
    
29. 
    
30. if ($response->;is_success) {
    
31.         print "success\n";
    
32.         print $response->;content;
    
33. } else {
    
34.         print $response->;status_line;
    
35. }
    

复制代码

cookies.txt是从firefox里面copy出来的,先删掉所有firefox的cookie,然后用firefox登录,把cookies.txt复制出来.
谢谢大家的帮忙
下一步是想个好点的办法定时run

tiw

sleep is valuable in Windows

Qiang

你的程序应该先做登录，这样 $br 就会自动保存拿到的 cookie 。 有了 $browser->;cookie_jar({});  它在背后帮你做所有 HTTP::Cookie 的东西。使用 HTTP::Cookie 是老的方法。

假设我们有 $br instance. $br->;cookie_jar({});

1。 使用 $br->;post 模拟论坛登录。
2。 登录后，这时 $br 里就保存了 cookie
3。 现在你可以在论坛发贴