simsimi聊天机器人页面源码问题

mousimin

simsimi聊天机器人，可以实现自动聊天。上图

我在页面上右键查看源码，并不能看到我发的“你好”和simsimi回的“不要啦”这两句的东西。只有打开这个页面simsimi默认发出的Hi~~~这一句：

1. <div id="msgs">
   
2.                                 <table class="new-templete">
   
3.                                 <tr>
   
4.                                         <td class="bot">
   
5.                                                 <div class="img-bot"></div>
   
6.                                                 <div class="left-convo">Hi~!</div>
   
7.                                         </td>
   
8.                                 </tr>
   
9.                                 </table>
   
10.                         </div>
    

复制代码

但是如果使用开发者工具就能找到我发的“你好”和simsimi回的“不要啦”这两句的代码：

不知道这两种查看方法为什么不一样?我是想用perl程序取出simsimi给我的回复来实现一个简单的聊天软件。

上传我的代码：

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. }

复制代码

程序中的$html变量是没有我发的“你好”和simsimi回的“不要啦”这两句的。请高手指点一二，谢谢！