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

我使用Perl DBI连接到MySQL数据库.我想找出我连接的数据库.

我不认为我可以使用：

$dbh->{Name}

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

是否有任何技巧或我需要跟踪数据库名称？

最佳答案
尝试执行查询

select DATABASE();

根据我的发现,DBH可以访问您最初连接的DSN,但不能在您进行更改后访问. (可能有更好的方法来切换数据库.)