mysql - 在 Windows-7-x64 上使用 DBI Perl 和 MySql 未定义 $DBI::errstr

Question

使用:

MySQL 5.5 ActivePerl v5.14.1 Windows 7 64 位

以下脚本在执行调用失败时有一个未定义的 $DBI::errstr:

#!c:/perl/bin/perl.exe -w
use DBI;

my $dbh = DBI->connect('dbi:mysql:cq','root','password') or die "Connection Error: $DBI::errstr\n";

# This SQL should fail because of a foreign key constraint
my $sql = "delete from Player where ID=6462"; 

my $sth = $dbh->prepare($sql);
$sth->execute or die "SQL Error: $DBI::errstr\n";

脚本运行时的输出是:

Use of uninitialized value $DBI::errstr in concatenation (.) or string at testmysql2.pl line 10.
SQL Error:

通过 HeidiSQL 运行的 SQL 提供了预期的外键错误: (我是新用户，无法插入图片)

在 32 位 Windows XP 上运行的相同脚本提供了预期的错误:

DBD::mysql::st execute failed: Cannot delete or update a parent row: a foreign key constraint fails (`cq`.`messageboard`, CONSTRAINT `messageboard_ibfk_1` FOREIGN KEY (`PlayerID`) REFERENCES `player` (`ID`)) at testmysql2.pl line 10.
SQL Error2: Cannot delete or update a parent row: a foreign key constraint fails (`cq`.`messageboard`, CONSTRAINT `messageboard_ibfk_1` FOREIGN KEY (`PlayerID`) REFERENCES `player` (`ID`))

注意:

无论SQL如何都会出现问题，例如SQL语法错误也会导致未定义的$DBI::errstr

有趣的是返回一个连接错误 - 例如，停止 MySQL 服务 - 运行脚本并按预期给出以下输出:

DBI connect('cq','root',...) failed: Can't connect to MySQL server on 'localhost' (10061) at testmysql2.pl line 4
Connection Error: Can't connect to MySQL server on 'localhost' (10061)

设置跟踪级别没有提供有用的信息(对我来说):

$sth->trace(5, "trace.txt");
$sth->execute or die "SQL Error: $DBI::errstr\n";

将一段 trace.txt 重新格式化为:

dbd_st_free_result_sets
mysql_st_internal_execute MYSQL_VERSION_ID 50147
parse_params statement delete from Player where ID=6462
dbd_st_execute returning imp_sth->row_num 18446744073709551614
execute= ( undef ) [1 items] at testmysql2.pl line 11
DESTROY for DBD::mysql::st (DBI::st=HASH(0x29dc0a8)~INNER) thr#2a97e8

正确的 SQL 按预期运行。我猜这是 Windows 7 64 位的错误？ - 但我不清楚/迷失了如何解决或找到正确的地方来报告/明确地找到。

如果你走到这一步......感谢阅读!

Answer 1

添加使用警告，因为默认情况下 PrintError 处于启用状态，这会导致 DBI 在出现故障时发出警告。另外，尝试将第二个 $DBI::errstr 更改为 $sth->errstr。如果这不起作用，那么我怀疑 execute 正在返回失败返回，但 DBD::mysql 没有在内部调用 set_err。