Передача хеша из Perl CGI::Application::Plugin::JSON в плагин формы jquery

Question

Мне нужно передать хэш со стороны сервера на сторону клиента. Я использую JQuery и Perl CGI::Application соответственно на переднем и заднем плане. Я начинаю, когда дело доходит до использования jquery, поэтому я изменил пример плагина формы jquery, который показывает, как обрабатывать данные JSON, возвращаемые с сервера http://jquery.malsup.com/form/. Я попытался использовать данный код с моим любимым Perl веб-фреймворком CGI::Application. CGI::Application::Plugin::JSON хорошо работает при передаче скалярных значений, но из-за отсутствия документации я не могу понять, как передавать массивы или хэши или, в этом отношении, сложные структуры данных. При передаче хэша я использую следующий фрагмент кода: -

foreach my $k (sort keys %hash)
{ 
return $self->add_json_header ( { message => $hash{$k}} );
}

Это ошибка, которую я получаю в журнале ошибок Apache:

ajaxtest.pl: Odd number of elements in hash assignment at /usr/local/share/perl/5.10.0/CGI/Application/Plugin/JSON.pm line 98., referer: http://localhost/echo.html

При прохождении скаляра я использую CGI::Application::Plugin::JSON json_body функция. Пожалуйста, дайте мне знать, где я иду не так. Ниже приведен код Jquery в html-файле, который также указан на сайте плагина формы (ссылка приведена выше):

// prepare the form when the DOM is ready 
$(document).ready(function() { 
// bind form using ajaxForm 
$('#jsonForm').ajaxForm({ 
// dataType identifies the expected content type of the server response 
dataType:  'json', 

// success identifies the function to invoke when the server response 
// has been received 
success:   processJson 
}); 
});

function processJson(data) { 
// 'data' is the json object returned from the server 
alert(data.message); 
}

Любые советы по использованию CGI::Application::Plugin::JSON со сложными структурами данных, такими как хеши хешей и массивы массивов, это очень приветствуется, так как мне это понадобится в будущем.

Answer 1

Вот возможное решение.

вам понадобится только библиотека JSON, и в вашем коде вы можете сделать следующее:

my %data_struct = { a => 1, b => 2 };
my $json = to_json( \%data_struct, {utf8 => 1} );
$json =~ s/"(\d+?)"/$1/g; # to_json puts quotes around numbers, we take them off

# here $self is the CGI::App object, it's probably called like that
$self->header_add( -type => 'application/json' );

return $json;

(Как отметил Рауль, вы не можете вернуться более одного раза в блок CGI::App.)

ПРИМЕЧАНИЕ: я не использую CGI::Application::Plugin::JSON, потому что он мне просто не нужен. Таким образом, я достиг того же результата. Конечно, TMTOWTDI.:)

Answer 2

Я не думаю, что вы понимаете метод возврата CGI::APP. Вы можете вернуться только один раз за режим.