my $stmt = "SELECT firstname, lastname, city, state FROM addresses ORDER BY lastname";
my $data = $self->dbh->selectall_arrayref($stmt, {Slice => {}});
####
[
{
'lastname' => 'Smith',
'city' => 'Chicago',
'state' => 'IL',
'firstname' => 'Jim'
},
{
'city' => 'Cleveland',
'state' => 'OH',
'firstname' => 'Susan',
'lastname' => 'Jones'
},
{
'state' => 'FL',
'lastname' => 'Waters',
'firstname' => 'Sam',
'city' => 'Miami'
}
];
##
##
[
{
'firstname' => 'Jim',
'lastname' => 'Smith',
'city' => 'Chicago',
'state' => 'IL'
},
{
'firstname' => 'Susan',
'lastname' => 'Jones',
'city' => 'Cleveland',
'state' => 'OH'
},
{
'firstname' => 'Sam',
'lastname' => 'Waters',
'city' => 'Miami',
'state' => 'FL'
}
];
##
##
use Tie::IxHash;
my $data = {};
tie %$data, 'Tie::IxHash';
my $stmt = "SELECT firstname, lastname, city, state FROM addresses ORDER BY lastname";
$data = $self->dbh->selectall_arrayref($stmt, {Slice => {}});