<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(&#
perl dbi 控制事务
最新推荐文章于 2021-04-07 04:10:03 发布
这篇博客展示了如何使用Perl的DBI模块进行数据库事务控制。通过示例代码,作者演示了如何插入记录并启用RaiseError属性来捕获和处理数据库错误,如遇到重复键错误时进行回滚操作。
摘要由CSDN通过智能技术生成