Perl 数据库事务处理（提交和回滚）

use DBI qw(:sql_types);



my $dbh = DBI->connect('dbi:mysql:sample_db','root','password',{

PrintError => 0,
RaiseError => 1,
AutoCommit => 0
}
) or die "Connection to sample_db failed: $DBI::errstr";

my @rows = (
[ 'A', 3, 5 ],
[ 'B', 2, 3 ],
[ 'C', 2, 0 ],
[ 'D', 6, 0 ],
);
my $sql = qq{ INSERT INTO teams VALUES ( ?, ?, ? ) };
my $sth = $dbh->prepare( $sql );
foreach $param (@rows) {
eval {
$sth->bind_param( 1, $param->[0], SQL_VARCHAR );
$sth->bind_param( 2, $param->[1], SQL_INTEGER );
$sth->bind_param( 3, $param->[2], SQL_INTEGER);
$sth->execute() or die;
};
if( $@ ) { # If eval failed. $@ is set to the error that occurred
warn "Database error: $DBI::errstr\n";
$dbh->rollback(); # Reverse all commit statements
}else{
$dbh->commit();
}
}
$sth->finish();
$dbh->disconnect();