如何拦截子类 DBI 中的查询？

Question

我需要拦截所有查询（例如，为了进行一些结构化日志记录）。 该应用程序已经使用子类 DBI，所以我希望我可以将我需要的代码注入到 MyDB::st 类中的 execute 重载中。

显然，这还不够。

在下面的示例中，MyDB::st::execute 仅在示例 2) 中执行。它不会在 1) 我调用 do 的地方执行，也不会在 3) 我调用 selectrow_array 的地方执行（即使文档说 selectrow_array 结合了 prepare、execute 和 fetchrow_hashref）。

我是否也需要重载 MyDB::db 类中的语句？有很多（do、selectrow_array、selectrow_arrayref、selectrow_hashref、selectall_arrayref、selectall_array、selectall_hashref、selectcol_arrayref 等）我希望我能避免这种情况。

为了简单起见，该示例使用 SQLite，但我检查的其他驱动程序的工作方式相同。

#!/usr/bin/perl

package MyDB;
use strict;
use warnings;
use base 'DBI';

sub connect {
    return DBI::connect( 'MyDB', 'dbi:SQLite:dbname=so.sqlite', '', '',);
}


package MyDB::db;
use strict;
use warnings;
use base 'DBI::db';

sub prepare {
    my $self = shift;
    warn "  DB: PREPARE\n";
    return $self->SUPER::prepare( @_ );
}


package MyDB::st;
use strict;
use warnings;
use base 'DBI::st';

sub execute {
    my $self = shift;
    warn "  ST: EXECUTE\n";
    return $self->SUPER::execute( @_ );
}

sub fetchrow_hashref {
    my $self = shift;
    warn "  ST: FETCHROW_HASHREF\n";
    return $self->SUPER::fetchrow_hashref( @_ );
}




package main;
use strict;
use warnings;

my $dbh = MyDB::connect();

warn "1) --- DO ---\n";
$dbh->do("CREATE TABLE IF NOT EXISTS ttt (a int)");

warn "2) --- PREPARE/EXECUTE/FETCHROW_HASHREF ---\n";
my $sth = $dbh->prepare( "SELECT * FROM ttt" );
$sth->execute();
$sth->fetchrow_hashref();

warn "3) --- SELECTROW_ARRAY ---\n";
$dbh->selectrow_array( "SELECT * FROM ttt" );

Answer 1

虽然文档根据其他方法描述了某些方法，但文档并未声称这些方法调用了其他方法。

每个驱动程序都通过使用 DBI 提供的模板来提供自己的许多 DBI 方法的实现（例如selectrow_array）。用C编写，模板中方法的实现经常直接调用驱动的函数，而不是通过DBI方法调用间接调用。

这使调用速度更快，但正如您所发现的，它使扩展 DBI 变得更加困难。

您可以找到您在DBI.pm 中列出的所有方法的 Perl 实现。复制这些。这些实现都是根据以下方法定义的，限制了您必须更改的内容：

• prepare
• execute
• fetch
• fetchrow_hashref
• fetchrow_arrayref
• bind_col

Answer 2

如果您只想记录查询，则无需拦截任何内容。尝试设置DBI_TRACE 环境变量。

DBI_TRACE=1=dbitrace.log

1 是日志级别，第二个参数是日志文件的路径。见https://metacpan.org/pod/DBI#DBI_TRACE和https://metacpan.org/pod/DBI#TRACING