建立在Perl

Question

我想在Perl中創建一個JSON字符串輸出這樣的一個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"; 

但不知道什麼，我假設有額外的水平做

Answer 1

你需要的是一個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模塊將正確地轉換爲false作爲JSON值。