Perl DBI DBD::mysql 从 mysql 服务器获取数据库名称

Question

我有一个生产服务器，每天在 MySql 中创建不同的数据库 服务器。

我需要编写一个在一天结束时运行的 perl 脚本 并执行以下操作。

连接到mysql服务器并获取所有数据库名称的列表 确实如此。然后连接到每个设备并检查存储的数据。

我唯一无法使用 DBI 和 DBD::mysql 做的事情 从 mysql 服务器读取数据库名称。

我找不到任何无需连接即可工作的 DBI 功能 首先是数据库。

任何帮助/示例/URL 都会非常有帮助:-)

Answer 1

use DBI;
use strict;
use warnings;
my $dbh = DBI->connect('dbi:mysql:information_schema', $ENV{'USER'}, $ENV{'PASSWD'}, { 'RaiseError' => 1 } );
my $databases = $dbh->selectcol_arrayref('show databases');

use Data::Dumper;
print Dumper $databases;
__END__
$VAR1 = [
      'information_schema',
      'mysql',
      'your_database_1',
      'your_database_2'
    ];

仅显示授权给您连接的用户的数据库。

Answer 2

尝试使用 INFORMATION_SCHEMA 数据库 - 该数据库名称始终存在并且因此可以硬编码到DBI中。

更具体，相当于显示数据库是：

SELECT SCHEMA_NAME AS `Database`
FROM INFORMATION_SCHEMA.SCHEMATA