perl dbi 控制事务

原创 2015年11月19日 19:49:36
<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("insert into t1 values(4)");  
    print "33333333\n";
    $dbh->do("insert into t1 values(5)"); 
    print "444444444\n";
    $dbh->do("insert into t1 values(6)"); 
    print "555555555\n";
    $dbh->do("insert into t1 values(6)"); 
    print "66666666\n";
    #$dbh->do("insert into t1 values(1)");   
$dbh->commit();
     };
if( $@ ) {
    warn "Database error: $DBI::errstr\n";
    $dbh->rollback(); #just die if rollback is failing
} 
jrhxpt01:/root# perl dbi.pl 
111111111
22222222
33333333
444444444
555555555
DBD::mysql::db do failed: Duplicate entry '6' for key 't1_idx1' at dbi.pl line 25.
Database error: Duplicate entry '6' for key 't1_idx1
~                                                                                                                                                                                                         
~ 启用RaiseError 错误处理属性,以便这些错误用一条错误消息就能自动地终止相应的脚本。



                

perl DBI使用详解

使用DBI的方法: --------------------------------------------------------------------- use DBI; --------...
  • q383965374
  • q383965374
  • 2013年11月07日 17:33
  • 3566

perl--DBI使用详解(二)

perl--DBI使用详解
  • herokoking
  • herokoking
  • 2017年03月03日 09:31
  • 1735

perl dbi 控制事务

jrhxpt01:/root# cat dbi.pl use DBI; #!/usr/bin/perl $db_name='test'; $ip='127.0.0.1'; $user="r...
  • zhaoyangjian724
  • zhaoyangjian724
  • 2015年11月19日 19:49
  • 529

DB2 client configure autocommit

1. Enable auto commit db2 => update command options using c on DB20000I The UPDATE COMMAND OPTIONS ...
  • HiHui
  • HiHui
  • 2016年10月29日 09:03
  • 483

perl 监控mysql 事务和锁

use DBI; use Net::SMTP; use HTTP::Date qw(time2iso str2time time2iso time2isoz); # mail_user sh...
  • zhaoyangjian724
  • zhaoyangjian724
  • 2016年11月22日 20:49
  • 294

Perl安装和使用DBI

还可以从cpan.perl.org站点下载tar压缩文件形式的源代码发行版本,解压缩后,切换到相应的文件目录 cd DBI-1.54 perl Makefile.PL make make test m...
  • zhaoyangjian724
  • zhaoyangjian724
  • 2014年09月02日 17:43
  • 1235

14.3.2.2 autocommit, Commit, and Rollback 自动提交 提交和回滚

14.3.2.2 autocommit, Commit, and Rollback 自动提交 提交和回滚 如果自动提交模式被启用,在InnoDB里, 所有的用户活动发生在一个事务里, 每个S...
  • zhaoyangjian724
  • zhaoyangjian724
  • 2016年06月15日 13:26
  • 662

Perl DBI 自动选择更新部分字段的值

通常,有一个表有多个字段,有时候会只修改其中的某些字段,定义为NULL的字段不更新,如下updatefield函数。 #!/usr/bin/perl use strict; use DBI; ...
  • G_Spider
  • G_Spider
  • 2014年04月02日 21:48
  • 911

Win32环境下 Perl DBI安装

环境建立安装MySQL  5.0Win32环境下安装Active Perl,默认安装中是不包含DBI数据库包的,以在http://ppm.activestate.com/PPMPackages/zip...
  • luciferic
  • luciferic
  • 2007年03月06日 11:33
  • 1588

perl dbi使用详解

  使用DBI的方法:---------------------------------------------------------------------use DBI;-----------...
  • fan_zhen_hua
  • fan_zhen_hua
  • 2010年12月15日 18:34
  • 1778
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:perl dbi 控制事务
举报原因:
原因补充:

(最多只允许输入30个字)