怎么样
foreach script [glob -nocomplain -dir $dir *.tcl] {source $script}
文档:foreach,glob,source
您可以先使用glob命令查找所有tcl文件,然后查看tcl文件列表并获取它们。
set $dir your/path
foreach file [glob -dir $dir */*.tcl] {
source $file
}
编辑:与Peters不同的是,此解决方案还会在子目录中提供.tcl文件(确保您需要这样)。