自 2011 年以来一直在处理这个问题。通常能够解决它。现在出现了一种情况,我确实需要能够处理错误,我在想,人们已经知道这个问题很多年了,这似乎是修复列表中最重要的事情,但是最新的 DBI 升级而且问题还没有解决。有没有人找到解决方法,或者知道如何破解库并让 DBI::errstr 在出现错误时携带一个值?
这是我的代码(是的,我知道空白根密码的问题):
use strict;
use DBI;
use DBD::mysql;
use Data::Dumper;
my $platform = "mysql";
my $database = "test";
my $host = "localhost";
my $port = "3306";
my $user = "root";
my $pw = "";
my $dsn;
$dsn = "dbi:mysql:$database:$host:$port";
my $DBI_connect = DBI->connect($dsn, $user, $pw, {RaiseError => 1,PrintError=>1}) or die "$DBI::errstr\n";
my $sql_str = 'INSERT INTO test_tablexx (\'xxx) VALUES (blah)';
my $DBI_query_handle = $DBI_connect->prepare( $sql_str ) or die "Can't prepare SQL statement: $DBI::errstr\n";
my $return = $DBI_query_handle->execute() or warn "$DBI::errstr\n";
print "sys arry".Dumper $@."\n";
print "err: ".$DBI_query_handle->err."\n";
print "errstr: ".$DBI_query_handle->errstr."\n";
print "state: ".$DBI_query_handle->state."\n";
print "err: ".$DBI_connect->err."\n";
print "errstr: ".$DBI_connect->errstr."\n";
print "state: ".$DBI_connect->state."\n";
print Dumper $DBI_query_handle;
print "\n\n-------------------------------------------------------------------\n\n";
my $hash = DBI->installed_versions;
print Dumper $hash;
现在,该表无效,该列中间有引号,并且该值是不带引号的字符串。应该像圣诞树一样点亮错误处理。
如果我将执行语句更改为“$DBI::errstr\n”,它确实会出现错误;它会死,但根本没有任何消息。
但结果是这样的:
sys arry$VAR1 = '
';
err:
errstr:
state:
err:
errstr:
state:
$VAR1 = bless( {}, 'DBI::st' );
-------------------------------------------------------------------
$VAR1 = {
'DBD::SQLite' => '1.37',
'DBD::ExampleP' => '12.014311',
'DBD::Sponge' => '12.010003',
'DBD::Pg' => bless( {
'original' => '2.19.3',
'qv' => 1,
'version' => [
2,
19,
3
]
}, 'version' ),
'DBD::Gofer' => '0.015327',
'DBD::DBM' => '0.08',
'DBD::mysql' => '4.022',
'DBD::ADO' => '2.99',
'DBD::ODBC' => '1.41',
'DBI' => '1.631',
'DBD::File' => '0.42'
};
最后一点是版本信息的转储,因此你们都可以看到我的 DBI 安装是最新的。
现在,当我将数据库更改为不存在的内容时,例如: my $database = "testxxx",它确实会引发错误:
DBI connect('testxx:localhost:3306','root',...) failed: Unknown database 'testxx' at ../sql_tester.pl line 17.
最后一点信息给您,当我转储 $DBI::lasth 时,我可以看到错误方法是 undef:
print Dumper $DBI::lasth;
$VAR1 = bless( {
'FetchHashKeyName' => 'NAME',
'TraceLevel' => 0,
'ImplementorClass' => 'DBD::mysql::db',
'dbi_imp_data' => undef,
'State' => \undef,
'Username' => 'root',
'Errstr' => \undef,
'ChildHandles' => [
bless( {}, 'DBI::st' )
],
'Driver' => bless( {
'Attribution' => 'DBD::mysql by Patrick Galbraith',
'FetchHashKeyName' => 'NAME',
'TraceLevel' => 0,
'ImplementorClass' => 'DBD::mysql::dr',
'State' => \undef,
'Version' => '4.022',
'Errstr' => \undef,
'ChildHandles' => [
bless( {}, 'DBI::db' )
],
'Name' => 'mysql',
'Err' => \undef
}, 'DBI::dr' ),
'Statement' => 'INSERT INTO test_tablexx (\'xxx) VALUES (blah)',
'Name' => 'test:localhost:3306',
'dbi_connect_closure' => sub { "DUMMY" },
'Err' => \undef
}, 'DBI::db' );
因此,请 SO 的好心人,当编程最重要的原则之一 - 错误处理 - 在我的程序的核心模块中不起作用时,我该怎么办?