Re: DBI Sqlite create table dynamically

[choroba]

Array in double quotes interpolates into its members separated by spaces. That's not the syntax for CREATE TABLE, though: you need the column names separated by commas. Also, if the input is dynamic, there can be a control character in the column name, so you need quoting.

#!/usr/bin/perl
use warnings;
use strict;
use feature qw{ say };

use DBI;

my @columns = qw( author year` day" month; 42 );
my $dbh = DBI->connect('dbi:SQLite::memory:')
    or die "Cannot connect: $DBI::errstr";
$dbh->{RaiseError} = 1;
my $column_list = join ', ', map $dbh->quote_identifier($_), @columns;
$dbh->do("CREATE TABLE data ($column_list)");
$dbh->do('INSERT INTO data VALUES(' . join(', ', 1 .. @columns) . ')')
+;
my $sth = $dbh->prepare("SELECT $column_list FROM data");
$sth->execute;
while (my @row = $sth->fetchrow_array) {
    say "@row";
}

[Anonymous Monk]

Perfect! Thank you!