在哪里可以找到用于将Perl数据结构转换为
JavaScript数据结构的Perl模块？
例如这是我的代码(梅森)：
% # convert our @cti data structure into a javascript one
var cti = [
% foreach my $cti_category (@cti) {
{
label: "<% $cti_category->{'label'} %>",value: "<% $cti_category->{'value'} %>",children: [
% foreach my $cti_type (@{$cti_category->{'children'}}) {
{
label: "<% $cti_type->{'label'} %>",value: "<% $cti_type->{'value'} %>",},% }
]
},% }
];
有这个模块吗？
解决方法
JSON代表JavaScript Object Notation,这是您正在寻找的格式.
不幸的是,您正在寻找的模块都不在Perl核心中,但它们可以在CPAN上使用,快速search将会显示出来.
我实际上建议安装JSON::Any作为包装,以及JSON::XS(如果你有一个C编译器)或JSON和JSON::Syck之一,如果你没有. JSON :: Any在其他几个JSON模块之上提供了一个interface class(您可以选择,或者让它从已安装的内容中选择),这与您最终使用的模块无关.这样,如果你的代码需要移植到其他地方,并且(比方说)目标机器可以在你不能的时候安装JSON :: XS,你可以在没有任何额外代码的情况下获得性能提升.
use JSON::Any; my $j = JSON::Any->new; $json = $j->objToJson($perl_data);
像这样.