perl dbi回滚不起作用

Question

我正在使用这种方法。如果sql中有错误，则回滚仅发生在asset_group的第一个id上。其余的ID被忽略。我是否正确地做？

my $sql = "sql batch that update and insert depending on the condition"; 
$dbh->{RaiseError} = 1; 
$dbh->{PrintError} = 0; 
$dbh->{AutoCommit} = 0; 

my $sth = $dbh->prepare($sql); 
my @error =(); 
my $num = 0; 
foreach my $id (@asset_group) { 
next if ($id eq ''); 
eval { 
    $sth->bind_param(1, $id); 
    $sth->bind_param(2, $vars{'other_id'}); 
    $sth->execute(); 

}; 
if ($@) { 
    $dbh->rollback(); 
    push @error, $@ 
} else { 
    $dbh->commit(); 
} 
} 

Answer 1

根据数据库的不同，您可能需要在开始更改之前发出begin work。我似乎记得Informix需要一个。

另外，它看起来像是在每次执行后发出提交或回滚。一旦提交，就不能回滚。通常有人说类似

$dbh->begin_work; 
eval { 
    for my $id (@asset_group) { 
     next if ($id eq ''); 
     $sth->execute($id, $vars{other_id}); 
    } 
    1; #if it doesn't die then this will force it to return true 
} or do { 
    my $error = DBI->errstr; 
    $dbh->rollback(); 
    die "could not insert rows: $error\n" 
}; 
$dbh->commit(); 

注意我怎么不使用$@。 $@是untrustworthy。