insert 1 row with a lot of columns using an array in Perl DBI

Question

I would like to insert a single row through perl dbi, but this row has A LOT of columns. My query would be smt like this :

$sth->prepare("insert into bigtable (col1, col2, ..., col25) values (?, ?, ..., ?)");
$sth->execute($val1, $val2, ..., $val25);

But I want it cleaner. If I have an array, @myArray, containing these 25 variables, is there a way to do smt like this :

$sth->prepare("insert into bigtable (col1, col2, ..., col25) values (?, ?, ..., ?)");
$sth->execute(@myArray);

?

Did you try the second block of code? That should work. search.cpan.org/~timb/DBI-1.618/DBI.pm#execute — Bryan
– Bryan, Commented Mar 23, 2012 at 13:40
I did, but got an error about hash references. I'll try it again tonight, and update the post. Thanks. — Sven Deckers
– Sven Deckers, Commented Mar 23, 2012 at 14:20
It's fixed, this was indeed correct, had an error somewhere else .. somehow. thanks anyway ! — Sven Deckers
– Sven Deckers, Commented Mar 26, 2012 at 6:55

TLP · Accepted Answer · 2012-03-23 13:42:13Z

4

You can do:

my $placeholders = join ", ", ("?") x @array;
$sth->prepare("insert into bigtable (col...) values ($placeholders)");
$sth->execute(@array);

answered Mar 23, 2012 at 13:42

TLP

68.2k10 gold badges97 silver badges156 bronze badges

Sign up to request clarification or add additional context in comments.

2 Comments

And even my $cols = join(', ', map { "col$_" } 1 .. @array); if column names are exactly like in the question.

@mcsi Yep, and you don't even need curly braces: map "col$_", 1..@array