使用Perl模块JSON创建JSON对象

Question

我正试图创建一个JSON对象以返回jQuery请求。

我正在尝试使用jQuery chained select module

我正在尝试使用Perl的JSON module创建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的任何代码。

Answer 2

让javascript在处理之前输出响应文本到textarea，这样你就可以看到传输中是否存在失败。此外，您将要在数据前放置一些内容，例如“myVar =”，以便将数据分配给另一端的内容。

Answer 3

看起来你已经弄明白了你的问题，如果你想知道为什么它不起作用是因为在旧版本的JSON模块中没有从JSON.pm导出to_json方法。 CPAN（2.0）上的最新版本将to_json导出到您的命名空间，但版本〜1.5不需要JSON ::。许多repos仍​​然使用这个旧版本，如果你在CentOS~5.3或旧版本的Fedora Core上运行，你将拥有更旧的JSON.pm。