如何在TCL中实现目录文件创建的50秒超时监控？

你的代码存在的问题 #

• 未定义变量lFileCreated，需要先赋值为/tmp/abc.txt，否则运行时会直接报错
• 超时触发后没有退出循环，即使输出了“Timed-out!”，代码仍会持续循环等待
• 超时逻辑计算错误：初始lCount=0，每次加5，当lCount>50时才提示超时，此时实际已等待55秒，超出了需求的50秒限制
• 循环顺序不合理：应该先检查是否超时，再执行等待操作，避免不必要的延迟

修正后的代码示例 #

如果需要每秒检查一次文件状态：

set target_file "/tmp/abc.txt"
set max_wait 50
set wait_count 0
set wait_interval 1 ;# 检查间隔（秒）

while {![file exists $target_file]} {
    if {$wait_count >= $max_wait} {
        puts "Timed-out!"
        exit ;# 退出循环及程序
    }
    after [expr {$wait_interval * 1000}] ;# 转换为TCL after命令需要的毫秒数
    incr wait_count $wait_interval
    puts "Waited for $wait_count seconds for $target_file"
}
puts "File available"

如果想用5秒间隔检查（和你原代码逻辑更接近）：

set target_file "/tmp/abc.txt"
set max_wait 50
set wait_count 0
set wait_interval 5

while {![file exists $target_file]} {
    if {$wait_count >= $max_wait} {
        puts "Timed-out!"
        exit
    }
    after [expr {$wait_interval * 1000}]
    incr wait_count $wait_interval
    puts "Waited for $wait_count seconds for $target_file"
}
puts "File available"

关于远程文件的处理 #

你提到的问题确实存在：TCL的file exists命令仅能识别本地文件系统（包括挂载到本地的远程存储，比如NFS、SMB共享目录）。如果是未挂载的远程服务器上的文件，直接用file exists无法检测。

这种情况下，需要通过远程执行命令的方式判断文件是否存在，比如用SSH连接远程主机执行检查命令：

set remote_host "你的远程主机地址"
set remote_user "你的远程登录用户名"
set remote_file "/远程路径/abc.txt"
set max_wait 50
set wait_count 0
set wait_interval 5

while {1} {
    # 执行远程文件检查命令，忽略错误输出
    if {[catch {exec ssh $remote_user@$remote_host "test -f $remote_file"}] == 0} {
        puts "File available"
        exit
    }
    if {$wait_count >= $max_wait} {
        puts "Timed-out!"
        exit
    }
    after [expr {$wait_interval * 1000}]
    incr wait_count $wait_interval
    puts "Waited for $wait_count seconds for $remote_file on $remote_host"
}

注意：这种方式需要提前配置SSH免密登录，否则会弹出密码输入框导致程序阻塞。

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