如何使用 Perl 将数据返回到 AJAX 调用？

Question

我有一个 HTML 文件，它会生成一个网页。用户可以在网页上输入一些cmets。为了保存 cmets，我使用 JQuery/AJAX 调用 perl 脚本。这将在数​​据库中添加一行。

在添加记录后的 perl 脚本中，我再次获取相同的记录。现在我想在我的页面中显示该记录而不刷新页面。 （我知道我们可以在 jquery 中使用 append）我的问题是如何将该记录从 perl 返回到 HTML 页面，包括 HTML 标记和所有。

这是将添加新记录的部分。

<span class="requester"> 
    <span>**message**</span> 
    </br>
    <i> - **username**  </i>
    <button class="deleteResponse" id="id"> delete </button> 
    <hr>
 </span>

消息和用户名是我将从 MYSQL 查询中获取的项目。\

这是我用来显示数据的。

 $("#"+getpID+" textarea ").before(htmlcode).fadeIn();

而htmlcode是

var htmlcode = '<span class="requester"> <span>message</span> </br>     <i> - username 0 seconds ago </i> <button class="deleteResponse" id="id"> delete </button> <hr> </span>';

我希望从 perl 脚本返回数据而不是 htmlcode。 任何帮助将不胜感激。谢谢sapna

Answer 1

您的 Perl 脚本需要打印您希望通过 AJAX 调用返回的数据。这是基本的 CGI。

#!/usr/bin/perl
use strict;
use warnings;
use CGI;
my $cgi = CGI->new;

# do your database stuff here

my $result = "HTML CODE"; # this is your result

print $cgi->header('text/html');
print $result;

在你的AJAX call 中，做这样的事情（我派对从 jQuery 文档中提取）：

$.get('ajax/test.html', function(data) {
  $("#"+getpID+" textarea ").before(data).fadeIn();
  alert('Load was performed.');
});

请注意，我没有对此进行测试。