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

Question

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

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

连接到mysql服务器并获取所有数据库名称的列表它有。然后连接到它们中的每一个并检查存储的数据。

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

我无法找到任何在不连接到数据库优先。

任何帮助/示例/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'
    ];

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