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

Question

I have a script ready in tcl to run but till now i am doing it manually because i have to wait for some file generation to complete.

How to automate this process that if a file appears, tcl script should trigger automatically?

Answer 1

Assuming there are normally zero files in the watched directory, this is an efficient way to poll the directory periodically:

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