如何用perl在网页中自动发送消息

mousimin

问一下perl怎样才能在下边一个聊天网页中自动填写聊天内容，并且点击发送按钮把消息发送出去？
请高手指点谢谢！

chengpohi

ajax不可以嘛？

mcshell

Test::WWW::Selenium

mousimin

回复 3# mcshell
谢谢你的回复！这个模块没用过，能否写个简单的例子给小弟看一下？
我看了cpan上作者的一个例子是这样的：

1. use Test::More tests => 5;
   
2. use Test::WWW::Selenium;
   
3. 
   
4. # Parameters are passed through to WWW::Selenium
   
5. my $sel = Test::WWW::Selenium->new( host => "localhost",
   
6.                                     port => 4444,
   
7.                                     browser => "*firefox",
   
8.                                     browser_url => "http://www.google.com",
   
9.                                     default_names => 1,
   
10.                                     error_callback => sub { ... },
    
11.                                   );
    
12. 
    
13. # use special test wrappers around WWW::Selenium commands:
    
14. $sel->open_ok("http://www.google.com.hk", undef, "fetched G's site alright");
    
15. $sel->type_ok( "q", "hello world");
    
16. $sel->click_ok("btnG");
    
17. $sel->wait_for_page_to_load_ok(5000);
    
18. $sel->title_like(qr/Google Search/);
    
19. $sel->error_callback(sub {...});

复制代码

这个代码也看不太明白，能否给指点一二？谢谢！
   

mousimin

回复 2# chengpohi

你是说的CGI::Ajax这个模块吧？能给小弟写个简单的例子参考一下吗？多谢！
   

gaoyang636

半软文一篇