Распечатать объект JSON из веб-сервиса Perl

Question

Я использую Perl в качестве своего веб-сервиса.

Мои переменные хранятся в переменных pic1 и pic2. Я хочу создать из этого объект JSON и передать его клиентской стороне, которая является сенсорным приложением Sencha (распечатайте этот объект json, как это сделано в веб-службе "arch.twitter.com/search.json?q='test '").

Я так много сделал.

print header('application/json');
my %data = (img_one => $pic1,img_two => $pic2);             

my $json_text = new JSON;
$json_text = to_json(\%data);
print $json_text;

Пожалуйста, направьте меня в этой проблеме

Answer 1

Вы не указали, какие модули вы используете.CGI?CGI :: Simple?Что-то другое?

Так что я просто дам вам очень материалистический сценарий для печати простого ответа JSON.

#!/usr/bin/env perl
use strict;
use warnings;

use JSON;

my %data = (img_one => 'pic1', img_two => 'pic2');

print "Content-Type: application/json\n\n";

print to_json \%data;