加入收藏 | 设为首页 | 会员中心 | 我要投稿 李大同 (https://www.lidatong.com.cn/)- 科技、建站、经验、云计算、5G、大数据,站长网!
当前位置: 首页 > 大数据 > 正文

在perl中创建一个json字符串

发布时间:2020-12-15 23:29:03 所属栏目:大数据 来源:网络整理
导读:我试图在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;prin
我试图在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 "$jsonn";

但不确定我想要用额外的水平做什么

解决方法

你需要的是一个 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的值.

(编辑:李大同)

【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容!

    推荐文章
      热点阅读