如何在Perl的DBI中使用占位符来实现可变参数SQL函数？

发布时间：2020-12-15 23:29:33 所属栏目：大数据来源：网络整理

导读：我不知道“variadic”实际上是否是正确的词,但我在谈论可以采用值列表的事情,比如IN().如果您已经使用DBI很长时间,您可能尝试这样做： (注意：为简洁起见,所有示例都非常简化) my $vals = join ',',@numbers;my $sth = $dbh-prepare( "SELECT * FROM mytbl W

我不知道“variadic”实际上是否是正确的词,但我在谈论可以采用值列表的事情,比如IN().如果您已经使用DBI很长时间,您可能尝试这样做：

(注意：为简洁起见,所有示例都非常简化)

my $vals = join ',',@numbers;
my $sth = $dbh->prepare( "SELECT * FROM mytbl WHERE foo IN( ? )" );
$sth->execute( $vals );     # doesn't work

DBI占位符根本不支持这些类型的恶作剧,它们各自的价值是多少？或者根据我所知,什么也没有.

这导致我最终做了类似的事情：

my $sth = $dbh->prepare( "SELECT * FROM mytbl WHERE foo IN ( $vals )" );

这不是那么可怕,但考虑一个函数,就像我今天写的一样,必须接受一些带有IN子句和值列表的任意SQL

sub example { 
    my $self = shift;
    my ( $sql,@args ) = @_;

    my $vals = join ',@args;
    $sql =~ s/XXX/$vals/;    <---- # AARRRGHGH
    my $sth = $self->dbh->prepare( $sql );
    ...
}

这最终会被看起来像的东西调用

my $sql = "SELECT * FROM mytbl WHERE foo IN( XXX ) AND bar = 42 ORDER BY baz";
my $result = $self->example( $sql,@quux );

这真的冒犯了我的审美感.以编程方式构建自定义SQL是一个非常大的痛苦;如果我不需要,我不想走下去修复我的SQL字符串的道路.

有没有更好的办法？

解决方法

sprintf在这种情况下很方便：

my $sth = $dbh->prepare( 
    sprintf(
        'SELECT * FROM mytbl WHERE foo IN( %s )',join(',('?') x @numbers) )
);

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!