Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation

Interpolate binds into SQL on error - DBI subclassing

by jZed (Prior)
on Oct 11, 2005 at 18:51 UTC ( #499253=snippet: print w/replies, xml ) Need Help??
Description: Here's a minimal subclass of DBI that illustrates how to subclass and adds interpolated binds to errors (i.e. it replaces SQL placeholders with the bind values). This isn't necessarily how your DBMS "sees" the statement, but it does give you a cut-and-pasteable approximation.

update Added Corion's fix to support questions marks in the bind values.

package MyDBI;
use base qw(DBI);

package MyDBI::db;
use base qw(DBI::db);

package MyDBI::st;
use base qw(DBI::st);

sub execute {
    my $rv = eval { $sth->SUPER::execute(@binds) };
    return $rv unless $@;
    my $errmsg = $sth->errstr;
    my $err    = $sth->err   ;
    my $stmt = $sth->{Statement};
    @binds = map {
        unless DBI::looks_like_number($_);
    } @binds;
    $stmt =~ s/\?/shift @binds/eg;
    return $sth->set_err(
         sprintf "Execution Error: %s\nReconstructed SQL=\n<\n%s\n>\n"
               , $errmsg, $stmt
Replies are listed 'Best First'.
Re: Interpolate binds into SQL on error - DBI subclassing
by Corion (Pope) on Oct 11, 2005 at 19:13 UTC

    This snippet will fail if the interpolated values themselves contain question marks - I would go for an eval-replace in the inner loop:

    for my $b(@binds) { $b=$sth->{Database}->quote($b) unless DBI::looks_like_number($b); }; $stmt =~ s/\?/shift @binds/eg;
Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: snippet [id://499253]
[ambrus]: Corion: those are good rules.
[ambrus]: Discipulus: oh sure. the input data has different filenames every time I get them.
[ambrus]: the directory structure may be 1, 2, or 3 deep, it may have spaces in the filename or not, it has dates in various format, different keywords for the same meanings, and the dates and other keywords are assembled in various ways.
[Discipulus]: no ambrus by specification i mean for example license per core instead of per socket, so fields are different

How do I use this? | Other CB clients
Other Users?
Others examining the Monastery: (13)
As of 2017-03-29 12:18 GMT
Find Nodes?
    Voting Booth?
    Should Pluto Get Its Planethood Back?

    Results (350 votes). Check out past polls.