这个问题是关于 Perl DBI(我将它与 MySQL 一起使用)。
我想要以下代码:
{ 本地 $dbh->{AutoCommit} = 0; ... 如果(...) { $dbh->回滚; } ... }
它会按预期工作吗?(我的意思是回滚后没有多余的提交) $dbh->{AutoCommit} 是否与 $dbh->begin_work 和 $dbh->rollback 兼容?
是的,你可以这样做,但你为什么要这样做。为什么不直接调用 begin_work 然后提交或回滚。即使 AutoCommit 开启,它们也能正常工作。
use strict;
use warnings;
use DBI;
use Data::Dumper;
my $h = DBI->connect();
eval {
$h->do(q/drop table mje/);
};
$h->do(q/create table mje (a int)/);
my $s = $h->prepare(q/insert into mje values(?)/);
foreach my $it(1..2) {
{
local $h->{AutoCommit} = 0;
$s->execute($it);
if ($it == 2) {
$h->rollback;
} else {
$h->commit;
}
}
}
my $r = $h->selectall_arrayref(q/select * from mje/);
print Dumper($r);
outputs:
$VAR1 = [
[
1
]
];
但以下对我来说看起来更好:
foreach my $it(1..2) {
$h->begin_work;
$s->execute($it);
if ($it == 2) {
$h->rollback;
} else {
$h->commit;
}
}