如何从Perl的DBI获取模式？

Question

我正在使用Perl DBI.我知道$dbase->tables()将返回相应数据库中的所有表.同样,我想知道数据库中可用的模式.有没有可用的功能？

Answer 1

您正在寻找的是:DBI-> table_info()

像这样称呼它:

my $sth = $dbh->table_info('', '%', '');
my $schemas = $dbh->selectcol_arrayref($sth, {Columns => [2]});
print "Schemas: ", join ', ', @$schemas;