Как я могу отправить JSON-ответ от программы Perl CGI?

Question

Я пишу JSON-ответ от программы на perl / cgi. Тип содержимого заголовка должен быть «application / json». Но, похоже, он не распознается, поскольку ответ создается в виде текстового файла.

Я бы собирал ответ, используя библиотеку JSON jQuery. Где я пропускаю при отправке ответа JSON.

Answer 1

Я делаю это в программе perl / cgi.

Я использую их в верхней части моего кода:

use CGI qw(:standard);
use JSON;

Затем я печатаю заголовок json:

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 в prety JSON.

Answer 2

Вот как генерировать запрос в Mason , веб-фреймворке для Perl.

Мейсон является аналогом Pylons или Ruby On Rails.

<%init>

use JSON;

my %hash = { a => 'a', b => 'b' };
my @list = ( 1, 2, \%hash );

# Mason object $r for Apache requests, automatically sets the header
$r->content_type('application/json');

# Pass a reference to anything (list, hash, scalar) for JSON to encode
my $json = new JSON;
print $json->encode(\@list);

</%init>

А затем обработайте его в Прототип , веб-абстракция JavaScript:

var req = new Ajax.Request('request.html', {
    method: 'get',
    parameters: {
        whatever: 'whatever'
    },
    onCreate: function() {
        // Whatever
    },
    onSuccess: function(response) {
        // This only works if you set the 'application/json' header properly
        var json = response.responseJSON;

        // Since you sent a list as the top-level thing in the JSON,
        // then iterate through each item
        json.each(function(item) {
            if (item instanceof Object) {
                item = new Hash(item);
            } else if (item instanceof Array) {
                // Do array stuff
            } else {
                // Do scalar stuff
            }
        });
    },
    onFailure: function() {
        // Failed
    }
});

Answer 3

Даже если вы укажете тип «application / json», вам все равно нужно разобрать текст. jQuery сделает это за вас, используя функцию $ .getJSON, а именно:

$.getJSON("http://someurl.com/blabla.json",{some: "info"},function(json){
  alert(json["aKey"]["anotherOne"]);
});

(здесь характеристики ).

Но, может быть, вы уже знаете об этом, поэтому проблема кроется где-то еще: не могли бы вы рассказать нам пример вашего ответа JSON, потому что, возможно, проблема в том, что это не правильно. Мне не совсем понятно, почему вы говорите, что «похоже, не распознается»: когда я пишу сервисы json, первый тест, который я делаю, это вызвать их в браузере и, возможно, запустить firebug и попытаться разобрать его (так что да это текстовый ответ, но javascript все еще очень рад разобрать его и вернуть объект json).