從Perl Web服務打印JSON對象

Question

我正在使用Perl作為我的Web服務。

我的變量存儲在pic1和pic2變量中。 我想從中創建一個JSON對象，並傳遞給Sencha觸摸應用程序的客戶端（按照“ arch.twitter.com/search.json?q='test'“中的說明打印該json對象）Web服務。

我已經做了很多。

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;