$sth=$dbh->prepare("SELECT * from $table where rownum < 2")
|| die "ERR $DBI::errstr\n";
$sth->execute || die "ERR $DBI::errstr\n";
$tfields = $sth->{NUM_OF_FIELDS};
for ($xx=1; $xx <= $tfields; $xx++)
{ push (@fields, $sth->{NAME}->[$xx-1]); }
$sth->finish || die "ERR $DBI::errstr\n";
-----Original Message-----
From: Anthony Nickolayev [mailto:[EMAIL PROTECTED]
Sent: Tuesday, June 10, 2003 3:34 AM
To: [EMAIL PROTECTED]
Subject: How can I fetch column names?
Greetings. Maybe the answer for my question will be RTFM, but i still cant
find
it myself. The problem is: i need to fetch just list, contains column names
- and
i dont know how to do it. I didnt find it in DBI manual page, and anywhere
else.
Thanks anyway, and sorry for my english.
