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。