限制Tcl应用并发实例数及查询SQLite数据库连接数咨询

可以通过文件独占锁实现，完全避开硬编码端口的冲突问题，跨平台且适配star kit打包后的应用：

• 定义一个专属锁文件（比如用户目录下的隐藏文件），应用启动时尝试获取该文件的独占锁
• 若锁获取失败，说明已有实例在运行，直接退出；若成功，保持锁直到进程结束（即使应用意外崩溃，系统也会自动释放锁）

示例代码：

# 自定义锁文件路径，可根据应用名称修改
set lockFilePath [file normalize "~/.my_tcl_app.lock"]

# 尝试打开并锁定文件
if {[catch {open $lockFilePath w} lockFd]} {
    puts stderr "应用已在运行，无法启动新实例"
    exit 1
}

# 添加独占锁，进程退出时自动释放
file lock $lockFd

# 此处编写应用主逻辑
# ...

SQLite本身没有跨进程查询总连接数的接口，但可以通过数据库文件锁检测判断是否有其他进程在使用目标数据库：

• 尝试对数据库文件加排他锁，若操作失败则说明已有其他连接（无论归属哪个应用）在操作该数据库
• 这种方式能快速检测并发访问风险，避免同时编辑导致的数据损坏

示例代码：

set dbFilePath "./mydata.sqlite"

# 尝试打开数据库文件
if {[catch {open $dbFilePath r} dbFd]} {
    puts stderr "无法打开数据库文件: $dbFilePath"
    exit 1
}

# 尝试加排他锁（NOWAIT表示不阻塞，立即返回结果）
if {[catch {file lock $dbFd EXCLUSIVE NOWAIT}]} {
    puts "数据库文件已被其他进程占用"
} else {
    puts "数据库当前无其他连接"
    # 检测完成后解锁
    file unlock $dbFd
}

close $dbFd

额外优化建议（针对防止数据损坏核心需求） #

• 开启SQLite的WAL模式：在打开数据库后执行PRAGMA journal_mode=WAL;，支持多进程读+单进程写，大幅降低并发冲突概率，且崩溃后数据恢复更可靠
• 优先采用单实例模式：结合问题1的文件锁方案，从根源避免多实例并发编辑，比检测数据库连接的防护效果更可靠

内容的提问来源于stack exchange，提问作者Gary