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

# 设置要监视的目录和脚本路径
set directory "/path/to/directory"
set script "/path/to/script.tcl"

# 打开目录并监视文件事件
set dirhandle [open $directory]
fileevent $dirhandle readable [list run_script $dirhandle $script]

# 定义运行脚本的过程
proc run_script {dirhandle script} {
    # 读取目录中的文件列表
    set files [glob -nocomplain -directory $dirhandle *]

    # 如果有文件存在，则运行脚本
    if {[llength $files] > 0} {
        exec tclsh $script
    }
}

# 进入事件循环
vwait forever