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

以下代码由PHP站长网 52php.cn收集自互联网

现在PHP站长网小编把它分享给大家，仅供参考

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',0 ],[ 'D',6,);
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( [email?protected] ) { # If eval failed. [email?protected] is set to the error that occurred
     warn "Database error: $DBI::errstrn";
     $dbh->rollback(); # Reverse all commit statements
}
else{
   $dbh->commit();
   print "Success!n";
}
$sth->finish();
$dbh->disconnect();

以上内容由PHP站长网【52php.cn】收集整理供大家参考研究

如果以上内容对您有帮助，欢迎收藏、点赞、推荐、分享。

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!