perl - 如何从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;