当文件出现在目录中时，如何在 tcl 中自动运行脚本？

Question

我在 tcl 中有一个准备好运行的脚本，但直到现在我都是手动执行的，因为我必须等待一些文件生成完成。

如何自动化这个过程，如果一个文件出现，tcl脚本应该自动触发？

Answer 1

假设监视目录中通常有零个文件，这是定期轮询目录的有效方法：

proc waitForFiles {directory} {
    set files [glob -directory $directory -nocomplain]
    if {[llength $files] == 0} {
        doSomethingHere
    }
    # check again in 100 milliseconds
    after 100 [list waitForFiles $directory]
}