如何在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
    }
]}

在哪里添加＆＃34;朋友＆＃34;和{}。

Answer 1

您可以将引用传递给哈希，并将class MarksSerializer(serializers.ModelSerializer): class Meta: model = Marks fields = ( 'english', 'maths', 'science', ) read_only_fields = ( 'maths', ) 作为键，并将数组引用作为值：

Friends