如何在Perl中给JSON数组分配一个名称

Question

5

在我的脚本中，to_json()将loop_data转换为JSON格式并分配给$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
    }
]}

如何添加“好友”和 {}。

- Devesh Agrawal

1个回答

网页内容由stack overflow 提供, 点击上面的

可以查看英文原文，
原文链接

- toolic · Accepted Answer

你可以传递一个哈希的引用，将键设置为Friends，值设置为数组的引用：

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