Question

I am trying to output some data from Perl to JSON. I can do a simple output, but would like to structure it better.

I have an array with an id, a start time and an end time. This is the code I am using to output:

print header('application/json');
my $json->{$entry} = \@array;
my $json_text = to_json($json);
print $json_text;

Which returns:

{"Season":[["1","1330065300","1344038401"],["7","1298505601","1312416001"]]}

But I would like to output something more like:

{"Season":0[{"id":1,"DateStart":1330065300,"DateEnd":1344038401},{"id":7,"DateStart":1298505601,"DateEnd":1312416001}]}

Can anyone help on how to better structure my output?

—UPDATE——

Thanks Michael. I have tried to implement your example.

This is the code at the moment:

foreach my $key (keys %$seasons)
    {
        $seasons->{$key} =
        [
            map
            {
                { id=>$_[0], DateStart=>$_[1], DateEnd=>$_[2] }
            } @{$seasons->{$key}}
        ];
    }

But it returns the error (referring to the foreach line):

Not a HASH reference at line 148

$seasons is an arrayref return from a SQL fetchall_arrayref

Any clues?

Answer 1

You basically want to convert an array of arrays to an array of hashes, and you can do this using map. Assuming $data is your structure, this should do it:

for my $key (keys %$data) {
    $data->{$key} = [
        map {
            { id => $_->[0], DateStart => $_->[1], DateEnd => $_->[2] }
        } @{$data->{$key}}
    ];      
}