Code> ./test.pl Benchmark: timing 50000 iterations of bind, inline... bind: 53 wallclock secs (23.00 usr + 8.93 sys = 31.93 CPU) inline: 52 wallclock secs (21.68 usr + 8.98 sys = 30.66 CPU)
#!/usr/bin/perl -w use strict; use DBI; use Benchmark qw/timethese/; use Config::File; my $c = Config::File->new( file => 'cppsu.config' ); my $h = DBI->connect( $c->db_datasource, $c->db_user, $c->db_pass, { $c->db_args } ); timethese( 50000, { bind => 'xbind', inline => 'xinline', }); sub xbind { my $sql = 'SELECT edited FROM faq WHERE id = ?'; my $sth = $h->prepare( $sql ); $sth->execute( 1 ); my @res = $sth->fetchrow_array; die unless @res == 1; } sub xinline { my $sql = 'SELECT edited FROM faq WHERE id = 1'; my $sth = $h->prepare( $sql ); $sth->execute; my @res = $sth->fetchrow_array; die unless @res == 1; }
In reply to Re: mod_perl was hosed by a bind variable
by fireartist
in thread mod_perl was hosed by a bind variable
by phildog
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |