我试图在perl中创建一个json字符串,输出如下内容：
{"d":{"success":false,"error":"key is required"}}
我已经想出如何在没有“d”的情况下使用此示例：
my %rec_hash = ('a' => 1,'b' => 2,'c' => 3,'d' => 4,'e' => 5);
my $json = encode_json \%rec_hash;
print "$json\n";
但不确定我想要用额外的水平做什么
解决方法
你需要的是一个
hash reference：
use strict;
use warnings;
use JSON;
my $json = JSON->new;
my $data_to_json = {d=>{success=>JSON::false,error=>"key is required"}};
print $json->encode($data_to_json) . "\n";
输出是：
{"d":{"success":false,"error":"key is required"}}
请注意,使用JSON :: false表示JSON模块将作为JSON值正确转换为false的值.
@H_403_44@