如何在Perl中打印出DBI的所有句柄属性

Jer*_*jks 1 perl dbi

为了使调试更容易,我想打印出DBI中所有句柄属性的所有键和值.

我试过了:

use DBI;
use Data::Dumper;

my $db = DBI->connect(etc);
print Dumper($db);
Run Code Online (Sandbox Code Playgroud)

但我只看到"bless {},'DBI :: db'"DBI本身有一个方法或者我可以用Dumper()打印一个变量,它会在DBI的内部打印信息吗?

Sch*_*ern 6

DBI文档顺便提一下 ......

DBI句柄是对绑定哈希的引用.绑定散列具有实际保存内容的内部散列.

您可以使用此内部属性哈希获取tied.

print Dumper tied %$dbh;
Run Code Online (Sandbox Code Playgroud)