perl - 设置 AutoCommit 和 begin_work/rollback 是一样的吗？

Question

这个问题是关于 Perl DBI(我在 MySQL 中使用它)。

我想要以下代码:

{
本地 $dbh->{AutoCommit} = 0;
...
如果(...){
$dbh->回滚；
}
...
}

它会按预期工作吗？ (我的意思是回滚后没有多余的提交) $dbh->{AutoCommit} 是否与 $dbh->begin_work 和 $dbh->rollback 兼容？

Answer 1

是的，您可以这样做，但您为什么要这样做。为什么不直接调用 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;
    }
}