Perl DBD无法连接到64位机器上的MySQL

Question

我在RHEL 5.5 64 bit机器上。

我安装了ActivePerl 5.10 64位在机器上，升级了以前内置的Perl 5.8 64位。我有MySQL并运行，我的PHP项目能够访问它。我的Perl文件需要使用DBD访问同一个数据库，但它无法做到这一点。我已经验证：

1. 我的MySQL服务已启动并正在运行。
2. 我的用户存在，数据库和数据一起存在。
3. 我能够通过shell MySQL客户端从数据库访问数据。

以下是我的Perl脚本。

#!/usr/bin/perl 

use DBI; 


$dbh = DBI->connect("DBI:mysql:go:super218:3306","root","NEWPASSWORD") or die "Couldn't connect to database: " . DBI->errstr; 

my $sth = $dbh->prepare("SELECT * FROM phones") 
     or die "Can't prepare SQL statement: $DBI::errstr\n"; 

$sth->execute or die "executing: $stmtA ", $dbh->errstr; 

my @row; 
while (@row = $sth->fetchrow_array()) { 
     print "Row: @row\n"; 
    } 

我正在用正确的用户名和密码以下错误：

DBI connect('go:super218:3306','root',...) failed: (no error string) at testdb.pl line 6 
Couldn't connect to database: at testdb.pl line 6. 

我得到不正确的用户名或密码以下错误：

DBI connect('go:super218:3306','root1',...) failed: Access denied for user 'root1'@'localhost' (using password: YES) at testdb.pl line 6 
Couldn't connect to database: Access denied for user 'root1'@'localhost' (using password: YES) at testdb.pl line 6. 

如何解决这个问题？我想这个问题是在MySQL的最后。

Answer 1

这是我的猜测。

你是否正确安装了mysql连接器库？

您是否指定了主机？

尝试了这一点：

my $db  = 'database_name'; 
    my $srv  = 'localhost'; 
    my $user  = '***************'; 
    my $pass  = '***************'; 
    my $port  = '3306'; 
    my $dbh = DBI->connect("DBI:mysql:$db:$srv", $user, $pass, {'RaiseError' => 1, 'PrintError' => 1, 'AutoCommit' => 1 }) or die "Connection Failed: $db DB on $srv\n\t$DBI::errstr\n"; 

如果不工作，尝试安装一个服务器的ODBC驱动程序并使用它。

Answer 2

使用单引号通常在数据库连接字符串，密码字符串和SQL查询，因为这可能会给你用双quotes.As双引号错误用于interpolation。

下面是我认为你应该写的。

#!/usr/bin/perl 

use strict; 
use warnings; 

use DBI; 
use DBD::mysql; 

my $dbh = DBI->connect('DBI:mysql:go;host=super218','root','NEWPASSWORD' ,{ RaiseError => 1 })or die "Couldn't connect to database"; 
my $sth = $dbh->prepare('SELECT * FROM phones'); 

$sth->execute; 

while (my @row = $sth->fetchrow_array()) { 
     print "Row: @row\n"; 
    }