Perl DBI+DB2脚本遇Ctrl+C后锁表问题及解决方案咨询

1. 查询未释放的锁 #

可通过DB2系统视图或监控函数查看锁状态：

• 查看持有状态的锁：

  db2 "SELECT TABNAME, LOCK_MODE, LOCK_STATUS, APPLICATION_HANDLE FROM SYSCAT.LOCKS WHERE LOCK_STATUS = 'H'"
  

  结果包含表名、锁模式、锁状态及持有锁的应用句柄。
• 实时监控锁信息（更高效）：

  db2 "SELECT APPLICATION_HANDLE, APPLICATION_NAME, LOCK_MODE, TABNAME FROM MON_GET_LOCK(NULL, -2)"
  

2. 修改代码捕获Ctrl+C并回滚解锁 #

在Perl脚本中注册SIGINT信号处理函数，确保收到中断时回滚事务并释放资源：

use DBI;

# 建立DB2连接，关闭自动提交以支持事务
my $dbh = DBI->connect(
    "dbi:DB2:database=YOUR_DB_NAME",
    "DB_USER",
    "DB_PASS",
    { AutoCommit => 0, RaiseError => 1 }
);

# 注册Ctrl+C信号处理逻辑
$SIG{INT} = sub {
    print "\n收到中断信号，执行回滚...\n";
    eval {
        $dbh->rollback();   # 回滚未提交事务
        $dbh->disconnect(); # 断开连接释放锁
    };
    print "回滚完成，退出脚本\n";
    exit(1);
};

# 业务逻辑示例
eval {
    $dbh->do("UPDATE your_table SET column = 'value' WHERE id = 1");
    # 业务完成后手动提交（按需）
    # $dbh->commit();
};

# 捕获业务逻辑错误并处理
if ($@) {
    print "执行错误: $@\n";
    $dbh->rollback();
    $dbh->disconnect();
    exit(1);
}

# 正常退出时提交并断开
$dbh->commit();
$dbh->disconnect();

关键注意点：必须设置AutoCommit => 0，否则事务自动提交，回滚操作无效。

3. 通过Perl脚本释放锁 #

锁的释放依赖于事务结束或持有锁的会话终止，两种可行方式：

• 终止持有锁的DB2应用：
  先查询到持有锁的应用句柄，再执行终止命令：

  use DBI;
  
  my $dbh = DBI->connect("dbi:DB2:database=YOUR_DB_NAME", "DB_USER", "DB_PASS");
  
  # 查询目标表上的持有锁应用句柄
  my $sth = $dbh->prepare(
      "SELECT APPLICATION_HANDLE FROM SYSCAT.LOCKS 
       WHERE TABNAME = 'YOUR_TABLE' AND LOCK_STATUS = 'H'"
  );
  $sth->execute();
  
  while (my ($handle) = $sth->fetchrow_array()) {
      print "终止应用句柄: $handle\n";
      $dbh->do("FORCE APPLICATION ($handle)");
  }
  
  $sth->finish();
  $dbh->disconnect();
  

• 确保自身脚本锁释放：
  只要在脚本任何退出路径（正常/异常）执行rollback()和disconnect()，即可释放当前脚本持有的锁，这也是最推荐的常规处理方式（对应问题2的代码实现）。

内容的提问来源于stack exchange，提问作者Be Kind To New Users