5

我在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的最后。

4

2 回答 2

2

通常在数据库连接字符串、密码字符串和 sql 查询中使用单引号，因为这些可能会给您带来双引号错误。因为双引号用于插值。

这就是我认为你应该写的方式。

#!/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";
   }
于 2012-03-20T10:05:18.640 回答
0

这是我的猜测。

您是否从 mysql 正确安装了 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 驱动程序并使用它。

于 2012-03-20T08:20:40.107 回答