Perl DBI：带有 OR 语句的奇数绑定变量（需要 y 时使用 x 绑定变量调用）答案

【问题标题】：Perl DBI: uneven-number of bind variables with OR Statement (called with x bind variables when y are needed)Perl DBI：带有 OR 语句的奇数绑定变量（需要 y 时使用 x 绑定变量调用）
【发布时间】：2020-06-14 18:02:57
【问题描述】：

任务定义：使用 OR 从两个不同的列中获取数据。

问题：在使用普通 (MySQL) 查询时，Perl DBI 由于 bind variables 的奇数个数而引发异常。

让我们假设以下数据库架构：

customer    vpn_primary_ip   vpn_secondary_ip
1000        1.1.1.1          2.2.2.2
1001        3.3.3.3          NULL
1002        4.4.4.4          5.5.5.5
1003        NULL             6.6.6.6

旁注：由于存储 ip 地址的列是不可预测的，我使用 OR 运算符组合搜索列 vpn_primary_ip AND vpn_secondary_ip。普通 SQL查询如下：

SELECT
     customer,
     vpn_primary_ip,
     vpn_secondary_ip,
 FROM
     table
 WHERE
     vpn_primary_ip IN ( '1.1.1.1', '4.4.4.4', '5.5.5.5', '6.6.6.6' )
 OR  
     vpn_secondary_ip IN ( '1.1.1.1', '4.4.4.4', '5.5.5.5', '6.6.6.6' );

上面的查询给出了以下（适当的）结果：

+----------+-----------------+------------------+
| customer | vpn_primary_ip  | vpn_secondary_ip |
+----------+-----------------+------------------+
|   1000   | 1.1.1.1         | 2.2.2.2          |
|   1002   | 4.4.4.4         | 5.5.5.5          |
|   1003   | NULL            | 6.6.6.6          |
+----------+-----------------+------------------+

与 Perl DBI 相同的 SQL 查询：

 my @ip_addresses = ('1.1.1.1', '4.4.4.4', '5.5.5.5', '6.6.6.6');

 my $sth = $dbh->prepare (
     "SELECT
       customer,
       vpn_primary_ip,
       vpn_secondary_ip,
     FROM
       table
     WHERE
       vpn_primary_ip IN ( @{[join',', ('?') x @ip_addresses]} )
     OR  
       vpn_secondary_ip IN ( @{[join',', ('?') x @ip_addresses]} )"
    );

 $sth->execute(@ip_addresses);

抛出以下异常：

DBD::mysql::st execute failed: called with 4 bind variables when 8 are needed at get_vpn_customers line 211, <DATA> line 1.
DBD::mysql::st execute failed: called with 4 bind variables when 8 are needed at get_vpn_customers line 211, <DATA> line 1.

使其工作的唯一方法是将@ip_addresses 传递给execute 方法两次：

$sth->execute(@ip_addresses, @ip_addresses);

问题：这是正确的方法还是有其他方法，比如最佳或更好的做法？

【问题讨论】：

这是正确的方法。 Perl 无法知道您将同一组值传递了两次，因此它只希望在调用的参数中指定所有 8 个值。

标签： mysql perl dbi dbd

【解决方案1】：

$sth->execute(@ip_addresses, @ip_addresses);

这是正确的方法。所有 DBI 都知道您已经向它传递了一个包含八个绑定点的 SQL 查询。因此，它需要将八个匹配值传递给execute() 方法。

Perl、DBI 或 MySQL 无法知道绑定值是否重复。

【讨论】：

PostgreSQL 支持$1、$2 形式的参数，因此您可以在查询中重复这些，并且只传递四个参数。遗憾的是，MySQL 无法实现。
你也可以写成$sth->execute((@ip_addresses)x2)（括号在这里很奇怪）
@Grinnz：我在想你真正需要的是像WHERE (vpn_primary_ip OR vpn_secondary_ip) IN (LIST) 这样的语法。但我从未在任何版本的 SQL 中看到过类似的情况。
您实际上可以使用 PostgreSQL 数组重叠运算符来执行此操作，我相信它看起来类似于 WHERE ARRAY[vpn_primary_ip, vpn_secondary_ip] && ?，将 \@ip_addresses 作为单个参数传递。不知道它会被优化到什么程度。

【解决方案2】：

其他可能的解决方案是在$sth->execute()之前按摩 SQL 查询到可工作状态

use strict;
use warnings;
use feature 'say';

my @ip_addresses = ('1.1.1.1', '4.4.4.4', '5.5.5.5', '6.6.6.6');

 my $query = "
    SELECT
       customer,
       vpn_primary_ip,
       vpn_secondary_ip,
     FROM
       table
     WHERE
       vpn_primary_ip IN ( @{[join',', ('?') x @ip_addresses]} )
     OR  
       vpn_secondary_ip IN ( @{[join',', ('?') x @ip_addresses]} )
    ";

say $query;

my $ip_addresses;
my $flag = 0;

for (@ip_addresses) {
    $ip_addresses .= ', ' if $flag;
    $ip_addresses .= "'$_'";
    $flag = 1;
}

$query = "
    SELECT
       customer,
       vpn_primary_ip,
       vpn_secondary_ip,
     FROM
       table
     WHERE
       vpn_primary_ip IN ( $ip_addresses )
     OR  
       vpn_secondary_ip IN ( $ip_addresses )
    ";

say $query;

输出

SELECT
   customer,
   vpn_primary_ip,
   vpn_secondary_ip,
 FROM
   table
 WHERE
   vpn_primary_ip IN ( ?,?,?,? )
 OR
   vpn_secondary_ip IN ( ?,?,?,? )


SELECT
   customer,
   vpn_primary_ip,
   vpn_secondary_ip,
 FROM
   table
 WHERE
   vpn_primary_ip IN ( '1.1.1.1', '4.4.4.4', '5.5.5.5', '6.6.6.6' )
 OR
   vpn_secondary_ip IN ( '1.1.1.1', '4.4.4.4', '5.5.5.5', '6.6.6.6' )

【讨论】：