【发布时间】:2021-12-18 08:28:24
【问题描述】:
我的公司在 IP 的服务器中有一个 Perl 应用程序:10.10.3.39
并且由于实施了新规则,我必须将数据库迁移到具有 IP 的服务器中的 MySQL 数据库:10.10.1.18
我公司的数据库管理员创建了一个帐户并授予用户名的应用程序访问权限:'user'@'10.10.3.39'。所以该账号只能在IP为10.10.3.39的服务器上使用
我使用命令mysql -h 10.10.1.18 -u user -p在服务器中尝试了连接
[hanief@dev39 project]$ mysql -h 10.10.1.18 -u user -p
Enter password:
Welcome to the MariaDB monitor. Commands end with ; or \g.
Your MariaDB connection id is 19484169
Server version: 10.0.15-MariaDB mariadb.org binary distribution
Copyright (c) 2000, 2018, Oracle, MariaDB Corporation Ab and others.
Type 'help;' or '\h' for help. Type '\c' to clear the current input statement.
MariaDB [(none)]>
我在 Perl 中有一个数据库连接脚本 test_db.pm,如下所示:
use DBI;
$user = "user";
$pw = 'password';
$dbh = DBI->connect("DBI:mysql:database=mysql;host=10.10.1.18;mysql_enable_utf8=1",$user, $pw, %attr) or die "Cannot connect to MySQL server\n";
然后,我尝试使用命令perl test_db.pm 运行它,我得到了这个错误
[hanief@dev39 project]$ perl test_db.pm
DBI connect('database=mysql;host=10.10.1.18;port=3306;mysql_enable_utf8=1','user',...)
failed: Access denied for user 'user'@'%' to database 'mysql' at test_db.pm line 6.
Cannot connect to MySQL server
不知道为什么账号名后面突然多了@'%'
我已尝试将变量 $user 更改为:
$user = "user\@10.10.3.39";
failed: Access denied for user 'user@10.10.3.39'@'10.10.3.39' (using password: YES) at test_db.pm line 6.
$user = "user\@'10.10.3.39'";
failed: Access denied for user 'user@'10.10.3.39''@'10.10.3.39' (using password: YES) at test_db.pm line 6.
$user = "'user'\@'10.10.3.39'";
failed: Access denied for user 'user'@'10.10.3.39'@'10.10.3.39' (using password: YES) at test_db.pm line 6.
但还是不行。服务器仍然无法连接到数据库服务器。
我不知道为什么用户帐户后面有一个额外的
@'10.10.3.39'。 而且不知道为什么之前%,突然换成了10.10.3.39
我的情况有什么解决方案吗?
【问题讨论】:
-
您是否尝试过设置调试级别,以便您可以看到 DBI 和 DBD::MySQL 的一些内容(我不确定模块名称中 MySQL 的大小写)表明它们的更多内容是做?您也许可以看到更改(对我来说很神秘)来自何处。你使用的 Perl 版本和以前一样吗?同一个版本的DBI? DBD?你还能连接到旧服务器吗? (我想它可能不再运行了,但如果他们在新系统稳定之前将它留在身边会更好。)
-
将
DBI_TRACE环境变量设置为非零值可能会有所帮助。使用DBI_TRACE=9可以提供大约最多的可用信息。 -
@JonathanLeffler 是的,我仍然使用相同版本的 perl、DBI 和 DBD。当然,我仍然可以连接到与应用程序在同一台服务器上的旧 mysql 服务器。但是由于新规则,我必须尽快迁移它。现在它仍然有效(因为我们仍在使用旧数据库)
-
将尝试您对 DBI_TRACE 的建议。
-
如果您仍然可以访问旧服务器,则运行与
DBI_TRACE设置的连接并捕获输出(它被写入标准错误,因此您可能需要perl yourscript.pl >output.1 2>&1(假设Bourne/POSIX 风格的 shell)。然后使用DBI_TRACE设置运行与新服务器的连接并捕获该输出。现在比较两组输出,看看有什么不同。应该有不同的地方。但我不知道是什么.(免责声明:我不是 MySQL 用户——但我确实编写了大部分DBD::Informix驱动程序,并且我仍然维护它,尽管不是很积极)。