mysql 插入前锁表问题

最新推荐文章于 2025-05-17 00:43:16 发布

scan724

最新推荐文章于 2025-05-17 00:43:16 发布

阅读量444

点赞数

CC 4.0 BY-SA版权

本文链接：https://blog.youkuaiyun.com/zhaoyangjian724/article/details/52290735

本文提供了一个使用Perl进行数据库操作的示例代码，包括连接数据库、执行查询并更新数据等步骤。通过这个例子可以了解如何利用Perl的DBI模块进行基本的数据库交互。

$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("select count(*) from t1 for update") ;
    $dbh->do("insert into t1 values(87)") ;
     $dbh->commit;
        };
    if( $@ ) {
    #warn "Database error: $DBI::errstr\n";
    $dbh->rollback(); #just die if rollback is failing 
    	 };
  $dbh->disconnect;