in reply to Returning data
use strict; use warnings; use Data::Dumper; my $Data = # simulated output of fetchall_arrayref() [ [ 'Valls', ('more fields')], [ 'AUT15605', ('more fields')], [ '10UT15605', ('more fields')], ]; my %output; @{$output{items}} = map { {title => $_->[0]} } @$Data; print Dumper(\%output);
|
---|