如何将新值推送到JSON对象中

Question

我有一个空的JSON对象

{}

我想知道，在Perl中，我可以将值推送到对象中，以便它最终看起来像这样

{"Test": 1}

Answer 1

您应该将数据构建为Perl数据结构，并在完成后将其转换为JSON

如果您从一些重要的JSON数据开始，那么您将首先对其进行解码，然后添加到生成的Perl数据结构中，但创建一个空的Perl哈希以启动

是微不足道的

您的代码看起来像这样

use strict;
use warnings 'all';

use JSON;

my %data;

$data{Test} = 1;

my $convert = JSON->new->pretty;
print $convert->encode(\%data);

输出

{
   "Test" : 1
}

Answer 2

#!/usr/bin/perl
use strict;
use warnings;
use JSON;
my $obj = {};
$obj->{'Test'} = 1;
print encode_json ($obj) . "\n";

一些google-fu会返回像JSON in Perl

这样的教程网站