javascript - 如何从 Perl CGI 程序发送 JSON 响应？

Question

我正在编写来自 perl/cgi 程序的 JSON 响应。 header 的内容类型需要是“application/json”。但它似乎没有被识别，因为响应是作为文本文件抛出的。

我将使用 jQuery 的 JSON 库来捕获响应。我在发送 JSON 响应时遗漏了哪里。

Answer 1

我在 perl/cgi 程序中这样做。

我在我的代码顶部使用这些:

use CGI qw(:standard);
use JSON;

然后我打印 json header :

print header('application/json');

这是一种内容类型:

Content-Type: application/json

然后我像这样打印出 JSON:

my $json->{"entries"} = \@entries;
my $json_text = to_json($json);
print $json_text;

我的javascript调用/处理它是这样的:

   $.ajax({
        type: 'GET',
        url: 'myscript.pl',
        dataType: 'json',
        data: { action: "request", last_ts: lastTimestamp },
        success: function(data){
            lastTs = data.last_mod;
            for (var entryNumber in data.entries) {
                 //Do stuff here
            }
        },
        error: function(){
            alert("Handle Errors here");
        },
        complete: function() {
        }
    });

如果您不想安装 JSON 库，则不一定非要使用它，您可以直接打印 JSON 格式的文本，但它可以很容易地将 perl 对象转换为 JSON。