Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask

Re: fetchrow_hashref, and table.column format

by rnahi (Curate)
on Dec 20, 2005 at 20:53 UTC ( #518184=note: print w/ replies, xml ) Need Help??

in reply to fetchrow_hashref, and table.column format

Since you are using MySQL, here is a recipe that should do what you want:

sub get_recs { my ($dbh, $query, @params) = @_ ; my $sth = $dbh->prepare($query); eval { if (@params) { $sth->execute(@params); } else { $sth->execute; } }; return if $@; my $table_names = $sth->{mysql_table}; my $field_names = $sth->{NAME_lc}; my $data = $sth->fetchall_arrayref(); my @records; for my $fn (@$field_names) { $fn = shift(@$table_names) . '.' . $fn; } for (@$data) { my %rec; @rec{@$field_names} = @$_; push @records, \%rec; } return \@records; }

This function will give back the same output of fetchall_arrayref({}) (with the hashref option, i.e. an array made of a hashref for each record) with the table name added to each field.

Comment on Re: fetchrow_hashref, and table.column format
Download Code

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://518184]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others chanting in the Monastery: (7)
As of 2016-05-30 17:30 GMT
Find Nodes?
    Voting Booth?