Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[52.14.224.197] |
|
Сообщ.
#1
,
|
|
|
Добрый день!
пытаюсь осилить 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; } а в перле так и не смог понять, как это сделать( UPD: помогло my $ref = $sth->fetchrow_hashref(); my @column_names = keys %$ref; |