return column names using DBI?

[TheNewbie81]

hi,

can anyone tell me whats the best way to return the column names for each table to a perl script. I have written a script that retrieves all the values in a table and formats it into HTML. The only thing is that I am unsure how to retrieve the column names. The perl module installed does not have the function column_info. Any ideas?

 

[travs69]

This came from some code I had just laying around
$sth=$dbh->prepare($query);
$sth->execute;
$num = $sth->{NUM_OF_FIELDS};
for $field (0..$num)
{
$column = $sth->{NAME}->[$field];
print "$column\n";
}


Normally I don't have a need to know what the column names are because when you do your query you usually ask for them in the order you want in the query.


~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Travis - Those who say it cannot be done are usually interrupted by someone else doing it; Give the wrong symptoms, get the wrong solutions;