文章/答案/技术大牛

发布

问基于CGI的chatbot编程
EN

Stack Overflow用户

提问于 2014-05-13 09:08:24

回答 1查看 190关注 0票数 0

我正在使用CGI编写一个聊天机器人程序，我有一个xml文件，其中包含模式和可能的答案，我解析它并将其与答案一起存储在一个散列中。我使用HTML创建了一个接口，我在输入textfield中引入了字符串，并检查它是否包含我的散列中的模式之一，如果是的话，它会在textarea(html)中打印一个可能的答案--它不会做什么，我不知道为什么。

我想要的是这样的东西：http://nlp-addiction.com/chatbot/eliza/

以下是xml文件的一部分：

<?xml version="1.0"?>
<aiml version="1.0"> 
<category> 
      <pattern>SARA</pattern>
      <template> 
        <random> 
          <li>¿Si?</li>
          <li>Dime.</li>
          <li>¿Qué deseas?</li>
        </random>
      </template>
    </category>
    <category>
    <pattern>ACTOR</pattern>
      <template> 
        <random> 
          <li>Mi actor favorito es Arnold Schwarzenegger en "Terminator".</li>
          <li>Mi actor favorito es Rutger Hauer en "Blade Runner".</li>
          <li>Mi actor favorito es Robin Williams en "El Hombre Bicentenario".</li>
          <li>Mi actor favorito es Peter Weller en "Robocop".</li>
          <li>Mi actor favorito es Jude Law en "AI".</li>
        </random>
      </template>
    </category>
    <category>
    <pattern>ACTRIZ</pattern>
      <template> 
        <random> 
          <li>Mi actriz favorita es Daryl Hannah en "Blade Runner".</li>
          <li>Mi actriz favorita es Kristanna Loken en "Terminator 3".</li>
          <li>Mi actriz favorita es Persis Khambatta en "Star Trek".</li>
        </random>
      </template>
    </category>
    <category>
    <pattern>ADAM</pattern>
      <template> 
        <random> 
          <li>Adam es mi programador. En este momento está muy ocupado.</li>
          <li>Adam es mi botmaster. Le daré saludos de tu parte.</li>
        </random>
      </template>
    </category>
    <category>
    <pattern>ADIOS</pattern>
    <template> 
      <random>
        <li>Hasta luego.</li>
        <li>Espero haber sido de ayuda.</li>
        <li>Espero verte de nuevo.</li>
      </random>
    </template>
  </category>
  <category> 
      <pattern>AFICIONES</pattern>
      <template> 
        <random> 
          <li>Me gusta ayudar a la gente.</li>
          <li>Me gusta conversar con la gente en Internet.</li>
          <li>Me encanta visitar zonas turísticas en <bot name="ciudad"/>.</li>
        </random>
      </template>
    </category>
<category> 
  <pattern>AHORA</pattern>
  <template> 
    <random> 
      <li>En este momento estoy hablando contigo.</li>
      <li>Ahora estoy hablando contigo.</li>
    </random>
  </template>
</category>
</aiml>

这是我的节目：

 #!/usr/bin/perl -w

use strict;
use CGI;
use warnings;
use XML::LibXML;
use utf8;

print "Content-Type:text/html\n\n";

binmode(STDOUT,":utf8");
binmode(STDIN,":utf8");

my $query = new CGI;


my $parser = XML::LibXML->new();
my $xmlfile = $parser->parse_file('sara.xml'); 

my %words;

my @answers;

$xmlfile = $xmlfile->getDocumentElement(); 



my @kids  = $xmlfile->findnodes('//category');  

foreach  my $child (@kids) {

    my $pattern = $child->findvalue('pattern'); 
    @answers = $child->findnodes('template/random/li'); 

    for my $answer(@answers){

        push @{$words{$pattern}}, $answer->textContent; 
    }

} 

my $input;
my $reply;

if($query->param('input1')) {
    $input = ($query->param('input1') || "");
    }

while($query->param('input')) {

    foreach my $pattern(keys %words){
        if(index(uc $input, $pattern) != -1){

            @answers = @{words{$pattern}};
            my $n = int rand($#answers + 1);

            $reply = $answers[$n];
            last;   
        }   
    }


}

print  <<PAGE;
    <html>
    <head>
    <title>Chat with Sara</title>
    <style type="text/css">
    input[type=text]{
        height:30px;

    }

    input[type=submit]{
        height:30px;
        width:65px; 
    }
    </style>
    <h1>Chat With Sara</h1>
    <form name="e_form" action="http://localhost/cgi-bin/chatbot.cgi" method="post">
    <textarea name="e_diaplay" cols="58" rows="20">$reply</textarea>
    <br/>
    <input type="text" name=\"input1\" size="50">
    <input type="submit" name="chat" value="Chat">
</head>
</html>
PAGE

有人能告诉我这是怎么回事吗？

有什么帮助吗？

xml

perl

textarea

cgi

回答 1

Stack Overflow用户

回答已采纳

发布于 2014-05-13 09:41:04

也许您在这段时间里有一个错误，您使用的是输入而不是input1。

while($query->param('input')) {

您可以向$reply添加一些内容以查看它的显示：

您应该使用foreach而不是while，您可以使用grep：

my $from_sara;
foreach my $input ($query->param('input1')){
  foreach my $pattern (grep {/^\s*$input\s*$/is} keys %words){
     @answers = @{$words{$pattern}};
     $from_sara = $answers[int rand($#answers + 1)];
     last;
  }
  last if $from_sara;
}
my $reply = "Answer from Sara:\n$from_sara\n";

票数 2

页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持

原文链接：

https://stackoverflow.com/questions/23627022

复制

相似问题

问基于CGI的chatbot编程
EN

回答 1

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问基于CGI的chatbot编程EN

回答 1

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问基于CGI的chatbot编程
EN