如何在Perl中为JSON数组指定名称

Question

在我的脚本to_json()中以json格式转换loop_data并分配给$ json.

my $json = to_json(\@loop_data);
print $json;

给出了这个输出.

[
    {
        "Name": "Vivek",
        "Age": 20
    },
    {
        "Name": "Sonali",
        "Age": 19
    }
]

但不是我想要打印$ json来提供此输出.

{"Friends" : [
    {
        "Name": "Vivek",
        "Age": 20
    },
    {
        "Name": "Sonali",
        "Age": 19
    }
]}

在哪里添加"朋友"和{}.

Answer 1

您可以将引用Friends作为键传递给哈希,并将引用作为值传递给数组:

my $json = to_json({"Friends" => \@loop_data});