Come assegnare un nome a JSON Array in Perl

Question

Nel mio script to_json() conversione di loop_data in formato json e assegnazione a $ json.

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

fornisce questa uscita.

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

Ma invece di quello voglio stampare $ json per dare questo risultato.

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

Dove aggiungere "Amici" e {}.

Answer 1

potreste passare un riferimento ad un hash con Friends come la chiave e un riferimento per l'array come valore:

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