站长论坛 - 站长交流社区- SEO交流论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

[html/html5] simsimi聊天机器人页面源码问题

[复制链接]
发表于 2018-9-18 13:56:51 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有帐号?立即注册

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



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

                                                
                                                Hi~!
                                       

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



不知道这两种查看方法为什么不一样?我是想用perl程序取出simsimi给我的回复来实现一个简单的聊天软件。
上传我的代码:[ol]#!/usr/bin/perl
use strict;
use warnings;
use LWP;
use HTTP::Cookies;
use HTTP::Response;
use LWP::ConnCache;
use Encode;
use FileHandle;
my $lwp = LWP::UserAgent->new;
my $conncache = new LWP::ConnCache;
$lwp->conn_cache($conncache);
my $file_log = "D:\\html.log";
my $log = new FileHandle(">$file_log") || die "can not open $file_log\n";
my $send_url = "http://www.simsimi.com/talk.htm";
my %send_form = (
         "userinput" => "how are you",
);
#my $send_cookie = qq~ sessionhash=$sessionhash; PHPSESSID=$passid~;
#print "Send_Cookie $send_cookie\n";
$lwp->default_header('Cookie'=>'aaa');
my $send_response = $lwp->post($send_url,\%send_form);
if ($send_response->is_success) {
        my $html = $send_response->decoded_content;
        my $start = '
';
        my $end = '
';
        my @find_all = ($html =~ /$start(.*?)$end/gs);
        foreach(@find_all)
        {
                print $log $_;
        }
        if (encode('gbk',$html) =~ /发送成功/) {
                 print "Data send sucessful!";
         }
         else { print "Data send failed!"; }
}
else {
        print "Data send error: ".$send_response->status_line;
}[/ol]复制代码程序中的$html变量是没有我发的“你好”和simsimi回的“不要啦”这两句的。请高手指点一二,谢谢!
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|小黑屋|易采站长站 ( 蒙ICP备14002389-1号 ) |

GMT+8, 2020-1-27 05:50

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表