從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;