Perl + POO và lỗi Mysql

Bản thân OO là đúng.

Thông báo lỗi đến từ MySQL, từ chối quyền truy cập của người dùng 'delkav', nhưng tôi người dùng mà bạn muốn kết nối là 'root'.

Dù sao, có vẻ như dòng DBI-> connect () của bạn bị sai. Để theo dõi DBD ::mysql tài liệu , bạn phải thay đổi dòng của mình:

my $connect = DBI->connect("DBI:mysql:$database:$host", $user, $pwd) or die $DBI::errstr;

đến

my $connect = DBI->connect("DBI:mysql:database=$database;host=$hostname;", $user, $pwd) or die $DBI::errstr;