如何使用Perl更改mysql密码
发布时间：2020-12-16 06:23:27 所属栏目：大数据 来源：网络整理
导读：我需要使用Perl脚本更改一些 mysql密码.以下在更改数据库条目时有效,但是当我为mysql用户更改修改它时,它会将它们重置为空密码.在它结束时’冲洗特权’也是很好的,但我还没有找到方法. #!/usr/bin/perluse DBI;use strict;my $newpass = "newpass";my $drive
|
我需要使用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;
解决方法
你错过了几个步骤.
使用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,'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;
（编辑：李大同） 【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容! |