mysql dbi_mysql DBI 事务控制
事务；
事务是任何健壮数据库系统的基本组成,它们 防止错误和数据库腐败通过确保有关数据的改变是原子发生的(不可分割的,要么所有要么什么都不做)
这个章节应用于数据库支持事务和 AutoCommit 是关闭的,查看"AutoCommit" 使用对于各种类型的数据库。
推荐的方式实现健壮的事务在Perl应用是使用RaiseError and eval { ... }
$dbh->{AutoCommit} = 0; # enable transactions, if possible
$dbh->{RaiseError} = 1;
eval {
foo(...) # do lots of work here
bar(...) # including inserts
baz(...) # and updates
$dbh->commit; # commit the changes if we get this far
};
if ($@) {
warn "Transaction aborted because $@";
# now rollback to undo the incomplete changes
# but do it in an eval{} as it may also fail
eval { $dbh->rollback };
# add other application on-error-clean-up code here
}
#!/usr/bin/perl
use DBI;
$db_name='zjzc';
$ip='127.0.0.1';
$user="root";
$passwd="1234567";
$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;
eval{
$dbh->do("insert into test values('$ARGV[0]')") ;
sleep (100);
$dbh->commit();};
if( $@ ) {
#warn "Database error: $DBI::errstr\n";
$dbh->rollback(); #just die if rollback is failing
};
$dbh->disconnect;
如果RaiseError 熟悉没有被设置,DBI 请求需要手动检查错误,像这样:
$h->method(@args) or die $h->errstr;
RaiseError设置后,DBI会自动的die 如果DBI方法调用处理失败,你不需要测试每个方法的返回值
评价方法的主要有点是 事务会正确的回滚 当任何代码(不只是DBI请求) 在内部程序dies 由于任何原因。
使用 $h->{RaiseError} 属性的主要优势是 DBI请求会被自动检查,
[root@wx03 sbin]# cat a1.pl
use DBI;
use POSIX;
$db_name='scan';
$ip='127.0.0.1';
$user="root";
$passwd="xxx";
$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;
eval{
my $XDATE = strftime("%Y%m%d%H%M%S",localtime());
print "\$XDATE is $XDATE\n";
$dbh->do("update t1 set c1=999 where c1=100") ;
$dbh->commit();};
if( $@ ) {
my $XDATE = strftime("%Y%m%d%H%M%S",localtime());
#warn "Database error: $DBI::errstr\n";
print "\$XDATE is $XDATE\n";
$dbh->rollback(); #just die if rollback is failing
};
$dbh->disconnect;
[root@wx03 sbin]# perl a1.pl
$XDATE is 20160823110539
DBD::mysql::db do failed: Lock wait timeout exceeded; try restarting transaction at a1.pl line 14.
$XDATE is 20160823110630
| innodb_lock_wait_timeout | 50
[root@wx03 sbin]# perl a1.pl
$XDATE is 20160823110743
DBD::mysql::db do failed: Table 'scan.t19' doesn't exist at a1.pl line 14.
$XDATE is 20160823110743
[root@wx03 sbin]# cat a1.pl
use DBI;
use POSIX;
$db_name='scan';
$ip='127.0.0.1';
$user="root";
$passwd="xxx";
$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;
eval{
my $XDATE = strftime("%Y%m%d%H%M%S",localtime());
print "\$XDATE is $XDATE\n";
$dbh->do("update t19 set c1=999 where c1=100") ;
$dbh->commit();};
if( $@ ) {
my $XDATE = strftime("%Y%m%d%H%M%S",localtime());
#warn "Database error: $DBI::errstr\n";
print "\$XDATE is $XDATE\n";
$dbh->rollback(); #just die if rollback is failing
};
$dbh->disconnect;
[root@wx03 sbin]# perl a1.pl
$XDATE is 20160823110746
DBD::mysql::db do failed: Ta