Perl使用DBI模块连接MySQL时如何指定账号所属主机

问题根因 #

1. MySQL账号的@来源IP后缀由服务端自动根据客户端连接的真实IP匹配，不需要客户端在用户名中手动拼接，你之前修改$user变量添加@xxx的操作都属于错误用法，会把@xxx识别为用户名的一部分，服务端再自动拼接真实来源IP后就会出现双@的报错。
2. 初始报错提示'user'@'%'访问被拒，核心原因是你调用DBI->connect时传入了未初始化的%attr变量，导致DBD::MySQL驱动解析连接参数异常，进而让MySQL服务端无法正确识别你的来源IP，匹配到了通配符%的账号规则，而你仅开通了10.10.3.39来源的账号权限，因此访问被拒。

解决步骤 #

1. 恢复$user变量为纯用户名，不要拼接任何@后缀内容。
2. 要么删除connect方法的第四个未定义%attr参数，要么提前正确初始化该哈希变量。
3. 确认$pw变量存储的密码和你命令行登录时输入的密码完全一致，注意特殊字符的转义问题（用单引号赋值密码可以避免大部分转义问题）。
4. 建议添加strict和warnings编译指令，可提前发现变量未定义这类低级错误。

修复后可运行的脚本示例 #

use strict;
use warnings;
use DBI;

my $user = "user";
my $pw = '替换为你的真实数据库密码';
# 不需要自定义属性就直接去掉第四个参数
my $dbh = DBI->connect(
    "DBI:mysql:database=mysql;host=10.10.1.18;mysql_enable_utf8=1",
    $user,
    $pw
) or die "连接数据库失败: " . DBI->errstr . "\n";

print "数据库连接成功\n";
$dbh->disconnect();

如果需要自定义连接属性，可以提前定义%attr：

my %attr = (
    RaiseError => 0,
    PrintError => 1,
    AutoCommit => 1
);
my $dbh = DBI->connect($dsn, $user, $pw, \%attr) or die $DBI::errstr;

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