mysql - 如何从 Perl MySQL DBI 句柄中获取数据库名称？

Question

我已经使用 Perl DBI 连接到 MySQL 数据库。我想知道我连接到哪个数据库。

我不认为我可以使用：

$dbh->{Name}

因为我调用USE new_database并且$dbh->{Name}只报告我最初连接的数据库。

有什么技巧还是我需要跟踪数据库名称？

Answer 1

尝试只执行查询

select DATABASE();

据我所知，DBH 可以访问您最初连接的 DSN，但在您进行更改后无法访问。（切换数据库可能有更好的方法。）

Answer 2

$dbh->{Name}从您的数据库句柄返回数据库名称。

如果您在连接 dbh 后连接到另一个 db，使用 mysql 查询“USE db_name”，并且您没有设置新的 perl DBI db 句柄，当然，$dbh->{Name} 将返回您之前连接的第一个...这不是自发的一代。

因此，一旦设置了数据库句柄，就获取连接的数据库名称 - 对于 DBI mysql：

sub get_dbname {  
    my ($dbh) = @_;  
    my $connected_db = $dbh->{name};  
    $connected_db =~ s/^dbname=([^;].*);host.*$/$1/;  
    return $connected_db;  
}  

Answer 3

你可以问mysql：

($dbname) = (each %{$dbh->selectrow_hashref("show tables")}) =~ /^Tables_in_(.*)/;

更新：显然 select DATABASE() 是一种更好的方法:)

Answer 4

当您创建连接对象时，它是针对某个数据库的。无论如何，在 DBI 的情况下。我不相信执行 SQLUSE database_name会影响您的连接实例。也许连接对象有一个 select_db（我的 DBI 生锈）函数，或者您必须创建一个到新数据库的新连接，以便连接实例正确报告它。

Answer 5

FWIW - 可能不多 - DBD::Informix 跟踪当前数据库，如果您执行 CREATE DATABASE 等操作，该数据库可能会发生变化。该$dbh->{Name}属性由 DBI 规范指定为在建立句柄时使用的名称。因此，有一个特定于 Informix 的属性$dbh->{ix_DatabaseName}提供实际的当前数据库名称。见：perldoc DBD::Informix。

您可以考虑请求 DBD::MySQL 的维护者添加一个类似的属性。