Re: AW: MySQL column_info() output order
Sebastian Reinhardt <[email protected]> Thu, 07 May 2009 21:58:55 +0200
| Newsgroups | gmane.comp.db.mysql.perl |
|---|---|
| Message-ID | <[email protected]> |
Selke, Gisbert W. schrieb: > Hallo Sebastian -- > > >> -----Ursprüngliche Nachricht----- >> Von: Sebastian Reinhardt [mailto:[email protected]] >> Gesendet: Donnerstag, 7. Mai 2009 15:26 >> To query an MYSQL- database, I have written a short CGI/Perl- >> Script. It is working well, except the naming of the result >> table! I try to fetch the column names from my database, to >> use it for the result table's head. I get the names, no >> problem so far, but these names are not in same order, as >> stored in the database! >> >> To fetch the names I use following code: >> >> --------------snip------------------ >> my $sth = $dbh->column_info(undef,$d_base,$d_table,'%'); >> my $col_info = $sth->fetchall_arrayref(); >> $sth->finish(); >> my $i = 0; >> foreach my $info(@$col_info) >> { >> $kat_info[$i]=@$info[3]; >> $i++; >> } >> --------------snip------------------ >> > Es ist einfacher ohne column_info() und funktioniert dann nicht nur für Tabellen, sondern für beliebige SELECts: > ---------------------- > my $sth = $dbh->prepare(qq(select * from some_table were foo='bla')) or die "Yukk"; > $sth->execute(); > @kat_info = @{ $sth->{NAME_lc} }; > # ... mach was mit @kat_info... > while (my $aryref = $sth->fetchrow_arrayref()) { ... } > ---------------------- > > \Gisbert > > Thanks! Works great! -- Sebastian Reinhardt -- MySQL Perl Mailing List For list archives: http://lists.mysql.com/perl To unsubscribe: http://lists.mysql.com/[email protected]