perl dbi 控制事务

最新推荐文章于 2021-04-07 04:10:03 发布

scan724

最新推荐文章于 2021-04-07 04:10:03 发布

阅读量950

点赞数

分类专栏： Perl DBI

本文链接：https://blog.csdn.net/zhaoyangjian724/article/details/49932835

版权

Perl DBI 专栏收录该内容

54 篇文章 31 订阅 ¥39.90 ¥99.00

订阅专栏

这篇博客展示了如何使用Perl的DBI模块进行数据库事务控制。通过示例代码，作者演示了如何插入记录并启用RaiseError属性来捕获和处理数据库错误，如遇到重复键错误时进行回滚操作。

摘要由CSDN通过智能技术生成

<pre name="code" class="sql">jrhxpt01:/root# cat dbi.pl 
use DBI;  
 
#!/usr/bin/perl 
$db_name='test';
$ip='127.0.0.1';
$user="root";
$passwd="a2p13mvh";
$dbh="";
$dbh = DBI->connect("dbi:mysql:database=$db_name;host=$ip;port=3306",$user,$passwd, {
                          RaiseError => 1,
                          AutoCommit => 0
                        }) or die "can't connect to database ". DBI-errstr; 
##Connect  
eval{
    $dbh->do("insert into t1 values(2)");   
    print "111111111\n";
    $dbh->do("insert into t1 values(3)");   
    print "22222222\n";
    $dbh->do(&#

了解本专栏