perl DBI 授予权限

Question

请帮助理解我在这里做错了什么。我猜转义是错误的，但我无法谷歌搜索一个可行的例子。

my $host = "localhost";
my $port = "3306";
my $user = "root";
my $pass = "111";
my $db_name = "test";
my $db_user = "test";
my $db_pass = "test";

my $dsn = "dbi:mysql::$host:$port";
my $dbh = DBI->connect($dsn, $user, $pass) or die "Unable to connect: $DBI::errstr\n";

$dbh->do("CREATE DATABASE $db_name");
$dbh->do("CREATE USER $db_user\@$host");
$dbh->do("GRANT ALL ON $db_name.* TO $db_user\@$host IDENTIFIED BY $db_pass");

$dbh->disconnect();

错误：

DBD::mysql::db do failed: Operation CREATE USER failed for 'test'@'localhost' at /home/andrew/sandbox/script.pl line 42.
DBD::mysql::db do failed: You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near 'test' at line 1 at /home/andrew/sandbox/script.pl line 43.

感谢您的回答。

Answer 1

您需要引用密码。

$dbh->do("GRANT ALL ON $db_name.* TO $db_user\@$host IDENTIFIED BY '$db_pass'");
                                                                   ^        ^

当然，准备好的语句/参数会更好（如果 MySQL 允许它们在这里，我不能 100% 确定）。

您也应该引用$db_user 和$host（同样，假设参数不起作用）。

如果参数有效：

$dbh->do(q{GRANT ALL ON ?.* TO ?@? IDENTIFIED BY ?}, {}, $db_name, $db_user, $host, $db_pass);

我相当有信心参数将适用于密码，也可能适用于用户和主机。数据库名称，我不太确定。你可能只需要用quote_identifier 内联它。

编辑：您应该完全敲击CREATE USER 行。授予权限将创建用户（并使用密码）。

Answer 2

看起来您每次运行脚本时都在尝试创建用户 - 如果我尝试多次创建用户，我会收到确切的错误。