Cách sử dụng Perl để thay đổi mật khẩu mysql

Bạn đang thiếu một vài bước. Hãy sử dụng lệnh PASSWORD () và sử dụng 'admin' chứ không phải 'root', đồng thời thêm flush priv's. Tôi đã viết lại tập lệnh cho bạn, tại đây:

#!/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;