[Perl] Извлечение имен столбцов

http://www.mysql.ru/docs/man/Perl_DBI_Class.html

Первая ссылка в гугле по запросу «perl mysql имена столбцов»

Думается, ТС-у нужны имена из дампа, а не из базы. А вобще, что-то оригинальнее регулярных варажений на ум сразу не приходит.

вот именно, на вход строка

INSERT INTO users (user_id,username) VALUES(?,?)

Сразу в голову пришел быстрый быдлокодерский вариант: split'ом преобразовать строку в массив, далее проходим по нему foreach'ем, вытаскиваем нужные значения, помещая в массив. Идею можно развить и доработать.

есть SQL::Parser, кажется то, что вам нужно

 $parser->parse('SELECT make,model FROM cars');
 use Data::Dumper;
 print Dumper $parser->structure;

Спасибо!