當文件出現在目錄中時，如何在 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]
}