perl mysql получить количество столбцов

Question

Есть ли простой простой способ получить количество столбцов с помощью perl и mysql? Я создаю код выбора sql, поэтому я не знаю, сколько столбцов там. У меня есть раздел столбца, поэтому решение регулярного выражения может быть простым?

-edit- для комментария ниже.

"select " . col . " FROM " #more code 
col = "a, b, c, d" #how do i find out if theres 4 columns? 
query->column_count(); #returns 4 
col = "a, b, c.c, d, e, f" 
query->column_count(); #return 6 etc. 

Answer 1

$column_amount = @row; #i cant believed no one replied

Answer 2

Вы можете получить список столбцов, возвращаемых в 'NAME' attribute of your statement.

Вот пример:

my $query = "SELECT * FROM table"; 
my $qr = $dbi->prepare($query); 

$qr->execute(); 
my $columns = $qr->{'NAME'}; 
printf "%d columns retuned\n", scalar @$columns;