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"; 
    }