从Perl webservice打印JSON对象

Question

我使用Perl作为我的网络服务。

我的变量存储在pic1和pic2变量中。 我想从中创建一个JSON对象并传递给客户端，这是Sencha touch应用程序（在“arch.twitter.com/search.json?q='test'”中完成打印json对象）webservice。

我做了这么多。

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 ::简单？有什么不同吗？

所以我会给你非常实质的脚本来打印简单的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;