tcl - 如何检查目录是否为空？

Question

我知道 expect 是 tcl-in-sheep-clothing，但即使我考虑到这一点进行 google，我还是一无所获。

有没有办法确定特定目录是否为空(或不为空，我可以使用否定)？

Answer 1

使用 glob，尝试在其中搜索模式 *。

set dir "/home/dinesh/stack"
set file_list [glob -nocomplain "$dir/*"]
if {[llength $file_list] != 0} {
    puts "$dir is not empty"
} else {
    puts "$dir is empty"
}