如何在 Apache::DBI 中禁用 ping？

Question

我在 Apache::DBI 中禁用连接验证时遇到问题。
来自 perldoc：

Apache::DBI->setPingTimeOut($data_source, $超时）

这配置了 ping 的使用 方法，验证连接。 将超时设置为 0 将始终 使用验证数据库连接 ping 方法（默认）。设置 超时< 0 将停用 验证数据库句柄。

我尝试使用与 connect() 中相同的 $data_source 调用 setPingTimeOut 但它不起作用。有人设法禁用 ping 吗？

Answer 1

，代码有：

# use a DSN without attribute settings specified within !
sub setPingTimeOut {
    my $class       = shift;
    my $data_source = shift;
    my $timeout     = shift;

    # sanity check
    if ($data_source =~ /dbi:\w+:.*/ and $timeout =~ /\-*\d+/) {
        $PingTimeOut{$data_source} = $timeout;
    }
}

为了澄清 “健全性检查”。因此，带有大写“DBI:”的数据源名称的 ping 超时将被静默忽略。