如何在DBI重新连接后挂钩

Question

我处理的模块提供了自动重新连接的DBI抽象。我需要在`DBI->连接后执行一些操作。

有没有办法在那里添加一个钩子而不修改这个模块？我没有在文档中找到它。我错过了什么？

Answer 1

DBI doc有a chapter about subclassing其中提到了一个不做任何事的$dbh->connected方法。这似乎正是你想要的。

当正在使用子类的话，后一个成功的新连接，该DBI->连接方法自动调用：

$dbh->connected($dsn, $user, $pass, \%attr); 

我还没有试过，但它可能是由刚刚工作的猴子 - 将此连接方法直接修改为DBI而不需要创建任何子类。 In connectthere is definitely a call to connected。

但我不确定在哪里修补。可能进入驱动程序。快速grep of the cpan显示只有两个司机包括在DBI dist包括这一点。 DBD::Gofer和DBD::Proxy，但那个是空的。它们都在DBD::<drivername>::db包中。

假设你正在做MySQL，那么你会去挂钩你的驱动程序。可以通过继承和使用该驱动程序，或者通过简单的猴子修补它。

*DBD::mysql::db::connected = sub { 
    my ($dbh, dsn, $user, $pass, $attr, $old_driver) = @_; 

    warn 'Connected!'; 
} 

这应该与其他车手一样，除非他们有自己的connected。在这种情况下，您应该手动包装它或使用Class::Method::Modifiers的around之类的东西来包装它以确保原始行为保持不变。

此时您还有实际连接的$dbh，因此如果需要，您可以在数据库中搜索connected。

当然这会给你回拨后每连接。如果你只想获得重新连接，你可以在一个词汇变量上创建一个闭包，这个变量计算连接并跳过第一个连接。

{ 
    my $connection_counter; 
    *DBD::mysql::db::connected = sub { 
     my ($dbh, dsn, $user, $pass, $attr, $old_driver) = @_; 

     return unless $connection_counter++; # skip first connection 
     warn 'Connected!'; 
    } 
} 

请注意，我还没有测试任何这一点。

Answer 2

虽然我必须说我没有尝试过;我发现这篇文章

http://justatheory.com/computers/databases/postgresql/execute-on-select.html

其中@theory写到了一个选项，以充分利用DBI每当有事来运行代码 - 就像连接。希望能帮助到你！