Perl: Is it possible to DBI bind_param() as part of selectrow_arrayref()?

Question

I'd like to bind param types during the selectrow/selectall function calls.

Is it possible to change something like:

$sth = $dbh->prepare($sql);
$sth->bind_param(1, undef, {pg_type => DBD::Pg::PG_BYTEA});
$sth->execute($byteavalue);

To a selectrow statement:

$dbh->selectrow_arrayref( $sql, undef, $byteavalue );

ikegami · Accepted Answer · 2012-08-10 02:30:08Z

2

The first param of selectrow_* can be a statement handle, so you could use:

$sth = $dbh->prepare($sql)
and $sth->bind_param(1, undef, { pg_type => DBD::Pg::PG_BYTEA })
and $dbh->selectrow_arrayref($sth, undef, $byteavalue);

Otherwise, you'll have to create your own version of selectrow_arrayref. The existing version is:

sub selectrow_arrayref {
    my ($dbh, $stmt, $attr, @bind) = @_;
    my $sth = ((ref $stmt) ? $stmt : $dbh->prepare($stmt, $attr))
        or return;
    $sth->execute(@bind)
        or return;
    my $row = $sth->fetchrow_arrayref()
        and $sth->finish;
    return $row;
}

edited Aug 10, 2012 at 2:30

answered Aug 9, 2012 at 20:54

ikegami

391k17 gold badges291 silver badges555 bronze badges

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

2 Comments

vol7ron Over a year ago

A little better, but I guess you would need to create the statement handle anyhow.

ikegami Over a year ago

No, it you wrote your own version of selectrow_arrayref, you could pass the information needed for binding in a new field of the $attr hash. (e.g. bind_params => [ [ 1, undef, { pg_type => DBD::Pg::PG_BYTEA } ] ]) But it's probably clearer if you don't.

Collectives™ on Stack Overflow

Perl: Is it possible to DBI bind_param() as part of selectrow_arrayref()?

1 Answer 1

2 Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

2 Comments

Your Answer

Sign up or log in

Post as a guest

Related