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

Re: named placeholders in DBI

by vladb (Vicar)
on Sep 22, 2003 at 16:39 UTC ( #293185=note: print w/ replies, xml ) Need Help??


in reply to named placeholders in DBI

This is of course true unless you are dealing with an automated process of building your queries from predefined perl structures. This would especially apply to building insert queries where data to be inserted is stored in a convenient perl hash (with keys being the fields and values being the corresponding field values :).

For example,

# a new record to be inserted my %user_rec = ( first_name => 'Foo', last_name => 'Bar', phone => '12345678', address => '123 Foo St', ); ## ## . . . some code here . . . ## # possibly somewhere in an add_db_user() sub # ... my @fields = keys %user_rec; my @values = @user_rec{@fields}; my $placeholders = join(",", ("?") x scalar @fields); my $sql = sprintf(qq~ INSERT INTO user(%s) VALUES(%s) ~, join(",", @fields), $placeholders); my $sth = $dbh->prepare($sql); $sth->execute(@values);
In this specific example the query would be:
INSERT INTO user(first_name,address,last_name,phone) VALUES(?,?,?,?)
Introducing placeholders here may not be as useful or productive as say in a case where you build your SQL query 'manually'. ;)

_____________________
"We've all heard that a million monkeys banging on a million typewriters will eventually reproduce
the entire works of Shakespeare. Now, thanks to the Internet, we know this is not true."

Robert Wilensky, University of California


Comment on Re: named placeholders in DBI
Select or Download Code
Re: Re: named placeholders in DBI
by simonm (Vicar) on Sep 22, 2003 at 21:25 UTC
    This functionality is also available pre-rolled in DBIx::SQLEngine:
    my ($sql, @params) = DBIx::SQLEngine->sql_insert( table => 'users', values => \%user_rec );

    There's also a dbh wrapper method that allows you to prepare and execute the query in one go:

    my $sqldbh = DBIx::SQLEngine->new( ... ); # same args as DBI->connect ... $sqldbh->do_insert( table => 'users', values => \%user_rec );

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (7)
As of 2014-12-20 14:25 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (96 votes), past polls