Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?
 
PerlMonks  

Re: DBI Sqlite create table dynamically

by choroba (Archbishop)
on May 05, 2017 at 15:18 UTC ( #1189575=note: print w/replies, xml ) Need Help??


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"; }
($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,

Replies are listed 'Best First'.
Re^2: DBI Sqlite create table dynamically
by Anonymous Monk on May 05, 2017 at 16:07 UTC

    Perfect! Thank you!

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1189575]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others cooling their heels in the Monastery: (5)
As of 2021-04-10 11:26 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?