[英]create a json string in perl
我試圖在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";
但不確定我想要用額外的水平做什么
你需要的是一個哈希引用 :
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
的值。
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.