Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?
 
PerlMonks  

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?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (14)
As of 2014-07-30 18:26 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My favorite superfluous repetitious redundant duplicative phrase is:









    Results (239 votes), past polls