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

Вы можете получить список столбцов, возвращенных в атрибуте 'NAME' вашего заявления .

Вот пример:

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

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

Answer 2

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