Re: DBI Sqlite create table dynamically

in reply to DBI Sqlite create table dynamically

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";
}
[download]

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,
[download]

In Section Seekers of Perl Wisdom