使用Perl模块JSON创建JSON对象

Question

我有一个杀手时间试图创建一个JSON对象来返回到jQuery请求.

我正在尝试使用Perl的JSON模块创建JSDN对象.

我不知道我做错了什么或者我怎么能调试它,关于我能做的最好的事情是得到一个JS对话框,出现"未知错误......".

这就是我试图创建JSON对象的全部内容,我认为这将是所有需要的,但事实并非如此.有任何想法吗？

TIA

use JSON;
my %data = (1 => 'val1',
            2 => 'val2',
            3 => 'val3',
           );
my $json_text = to_json(\%data);
print $json_text;

Answer 1

运行脚本给出:

{"1":"val1","3":"val3","2":"val2"}

......这是预期的产出.

问题几乎肯定在于您使用从服务器到客户端获取JSON的任何代码.