Chinaunix

标题: 自动聊天程序中html问题 [打印本页]

---

作者: mousimin    时间: 2013-02-26 10:51
标题: 自动聊天程序中html问题
大家好，想做一个跟simsimi聊天的perl程序，源码如下：

1. #!/usr/bin/perl
   
2. 
   
3. use strict;
   
4. use warnings;
   
5. use LWP;
   
6. use HTTP::Cookies;
   
7. use HTTP::Response;
   
8. use LWP::ConnCache;
   
9. use Encode;
   
10. use FileHandle;
    
11. 
    
12. my $lwp = LWP::UserAgent->new;
    
13. my $conncache = new LWP::ConnCache;
    
14. $lwp->conn_cache($conncache);
    
15. my $file_log = "D:\\html.log";
    
16. my $log = new FileHandle(">$file_log") || die "can not open $file_log\n";
    
17. 
    
18. my $send_url = "http://www.simsimi.com/talk.htm";
    
19. my %send_form = (
    
20.          "userinput" => "how are you",
    
21. );
    
22. #my $send_cookie = qq~ sessionhash=$sessionhash; PHPSESSID=$passid~;
    
23. #print "Send_Cookie $send_cookie\n";
    
24. $lwp->default_header('Cookie'=>'aaa');
    
25. my $send_response = $lwp->post($send_url,\%send_form);
    
26. if ($send_response->is_success) {
    
27.         my $html = $send_response->decoded_content;
    
28.         my $start = '<table class="new-templete">';
    
29.         my $end = '</table>';
    
30.         my @find_all = ($html =~ /$start(.*?)$end/gs);
    
31.         foreach(@find_all)
    
32.         {
    
33.                 print $log $_;
    
34.         }
    
35.         if (encode('gbk',$html) =~ /发送成功/) {
    
36.                  print "Data send sucessful!";
    
37.          }
    
38.          else { print "Data send failed!"; }
    
39. }
    
40. else {
    
41.         print "Data send error: ".$send_response->status_line;
    
42. }

复制代码

记录到日志里边的内容是：

1. 
   
2. 
   
3.                                 <tr>
   
4. 
   
5.                                         <td class="bot">
   
6. 
   
7.                                                 <div class="img-bot"></div>
   
8. 
   
9.                                                 <div class="left-convo">Hi~!</div>
   
10. 
    
11.                                         </td>
    
12. 
    
13.                                 </tr>
    
14. 
    
15.                                

复制代码

没有我想要的simsimi的回复，但是我在遨游的开发者工具中看到的html源码是有的：


请问我该怎样得到页面的全部源码呢？

---

作者: mousimin    时间: 2013-02-26 10:53
忘记说了，

1. 
   
2. 
   
3.                                 <tr>
   
4. 
   
5.                                         <td class="bot">
   
6. 
   
7.                                                 <div class="img-bot"></div>
   
8. 
   
9.                                                 <div class="left-convo">Hi~!</div>
   
10. 
    
11.                                         </td>
    
12. 
    
13.                                 </tr>
    
14. 
    
15.                                

复制代码

这段中的Hi~!是你登陆到http://www.simsimi.com/talk.htm这个页面，simsimi就会默认发出的内容。

---

欢迎光临 Chinaunix (http://bbs.chinaunix.net/)

Powered by Discuz! X3.2