在所有子目录中递归搜索扩展名为.log的文件

Question

TCL中的命令是什么命令在当前目录和子目录中递归搜索扩展名为.log的文件。

我尝试了 glob -type f * .log ，但它只在当前目录中查找。

Answer 1

Tcllib中的fileutil包非常适合此类事情。特别是，Laravel 5.2 docs完全符合您的要求。

package require fileutil

# We need a helper procedure here. This is a trivial wrapper round [string match]
proc is_log {name} {
    return [string match *.log $name]
}
set log_files [fileutil::find [pwd] is_log]