如何使用Perl更改mysql密码

Question

我需要使用Perl脚本更改几个mysql密码。在更改数据库条目时以下方法可行，但当我为mysql用户更改修改时，会将它重置为空密码。在它的末尾“刷新特权”也很好，但我还没有找到该方法。

#!/usr/bin/perl 

use DBI; 
use strict; 

my $newpass = "newpass"; 
my $driver = "mysql"; 
my $database = "mysql"; 
my $dsn = "DBI:$driver:database=$database"; 
my $dbh = DBI->connect($dsn, 'root', 'mysql') or die $DBI::errstr; 
my $sth = $dbh->prepare("update user set password='$newpass' where User='admin'"); 
$sth->execute() or die $DBI::errstr; 
$sth->finish(); 
$dbh->{AutoCommit} = 0; 
$dbh->commit or die $DBI::errstr; 

Answer 1

你错过一对夫妇的步骤。 使用PASSWORD（）命令并使用'admin'而不是'root'，并添加flush priv。 我为您重写了脚本，在这里：

#!/usr/bin/perl 

use DBI; 
use strict; 

my $newpass = "newpass"; 
my $driver = "mysql"; 
my $database = "mysql"; 
my $dsn = "DBI:$driver:database=$database"; 
my $dbh = DBI->connect($dsn, 'root', 'mysql') or die $DBI::errstr; 
$dbh->{AutoCommit} = 0; 
my $sth = $dbh->prepare("update user set password=PASSWORD('$newpass') where User='root'"); 
$sth->execute() or die $DBI::errstr; 
$dbh->do('FLUSH PRIVILEGES') or die $DBI::errstr; 
$sth->finish(); 
$dbh->commit or die $DBI::errstr; 

Answer 2

你想使用SET PASSWORD语法：

SET PASSWORD FOR 'username'@'localhost' = PASSWORD('cleartext password'); 

Answer 3

更改此：

my $sth = $dbh->prepare("update user set password='$newpass' where User='admin'"); 

进入这个：

my $sth = $dbh->prepare("update mysql.user set Password=Password('$newpass') 
         where User='admin' and Host='localhost'");