从Perl webservice打印JSON对象

Question

我使用Perl作为我的web服务。

我有我的变量存储在pic1和pic2变量。 我想从中创建一个JSON对象，并传递给Sencha touch应用程序的客户端（打印出如json对象，如“arch.twitter.com/search.json?q='test'”）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;