如何通过Perl DBI连接MariaDB MaxScale集群执行查询？

你的核心问题是Perl DBI连接字符串的语法错误，同时没有正确指向MaxScale的监听地址和端口。以下是具体的修正方案和排查步骤：

1. 修正DBI连接代码 #

你原来的连接字符串里存在语法错误（多了一个}），并且没有明确指定MaxScale的host和port参数。根据你提供的MaxScale连接信息（IP192.168.0.1，端口4006），正确的连接代码如下：

my $db_name = "test"; # 替换为你要访问的目标数据库
my $maxscale_host = "192.168.0.1";
my $maxscale_port = 4006;
my $user = "maxscale";
my $passwd = "passwd";

# 正确的DBI连接语句，建议开启错误捕获便于排查
my $dbh = DBI->connect(
    "DBI:mysql:database=$db_name;host=$maxscale_host;port=$maxscale_port",
    $user,
    $passwd,
    { RaiseError => 1, PrintError => 0 }
);

2. 关键注意事项 #

• 参数格式：DBI的mysql连接字符串需要用;分隔参数，明确指定host和port才能指向MaxScale，而非直接拼接服务器地址
• 错误捕获：开启RaiseError后，连接或查询失败时会直接抛出错误信息，帮你快速定位问题（比如权限不足、网络不通）
• 用户权限：确保maxscale用户拥有目标数据库的访问权限（比如test库），虽然mysql命令能列出数据库，但可能缺少具体库的读写权限

3. 排查无法连接的常见原因 #

如果修正后仍然失败，检查以下几点：

• 确认Perl的DBD::mysql模块版本：过旧的版本可能和MaxScale的协议不兼容，执行cpanm DBD::mysql更新到最新版
• 网络连通性：在Perl所在服务器执行telnet 192.168.0.1 4006或nc -zv 192.168.0.1 4006，确认端口是否能访问
• MaxScale配置：检查MaxScale的监听服务（比如readwritesplit）是否正常运行，执行maxctrl list services确认服务状态

内容的提问来源于stack exchange，提问作者gatorreina