perl dbi rollback ne fonctionne pas

Question

J'utilise cette approche. S'il y a une erreur dans le sql, la restauration ne se produit que pour le premier identifiant du groupe d'actifs. Le reste des identifiants est ignoré. Est-ce que je le fais de la bonne façon?

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

En fonction de la base de données, vous devrez peut-être émettre un begin work avant de commencer à changer les choses. J'ai l'impression de me souvenir qu'Informix en a besoin. En outre, il semble que vous générez une validation ou une annulation après chaque exécution. Une fois que vous vous êtes engagé, vous ne pouvez pas revenir en arrière. Normalement, on dit quelque chose comme

$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(); 

Remarque que je ne l'utilise $@. $@ est untrustworthy.