LINUX.ORG.RU

perl+mysql название столбцов таблицы


0

0

Добрый день!
пытаюсь осилить perl+mysql:
#!/usr/local/perl/bin/perl -w
use DBI;
my $dsn=«DBI:mysql:database=db:localhost»;
my $dbh = DBI->connect($dsn,«user», «password»);
my $sth = $dbh->prepare(«select * from temp_table;»);
$sth->execute();

как вытащить названия полей таблицы при запросе вида «SELECT * »? в пхп делаю так:

$row=mysql_fetch_array($db->res, MYSQL_ASSOC);
foreach ($row as $key=>$cell)
{
   echo $key;
}

а в перле так и не смог осилить(


Ответ на: комментарий от hizel

Спасибо за направление...
помогло
my $ref = $sth->fetchrow_hashref();
my @column_names = keys %$ref;

spdooh ()
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.