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

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

我不认为我可以使用:

$dbh->{Name}

因为我打电话USE new_database,$dbh->{Name}只报告我最初连接的数据库.

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

尝试执行查询

select DATABASE();

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