如何在 Perl 中为 JSON 数组分配名称

Question

在我的脚本 to_json() 中，将 loop_data 转换为 json 格式并分配给 $json。

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

给出这个输出。

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

但我希望 print $json 给出这个输出而不是那个。

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

在哪里添加“朋友”和{}。

Answer 1

您可以传递对散列的引用，以 Friends 作为键并将对数组的引用作为值：

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