Как проверить, пуст ли каталог?

Question

Я знаю, что ожидание - это одежда tcl-in-sheep, но даже когда я говорю об этом, я начинаю пустым.

Есть ли способ определить, является ли конкретный каталог пустым (или не пустым, я могу просто использовать отрицание)?

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" 
} 

Answer 2

Использование:

[glob -nocomplain -dir $dir *] 

вместо

[glob -nocomplain "$dir/*"] 

Если не указать каталог, в некоторых случаях ваша команда потерпит неудачу (как мой Windows, 8.1 с Tcl8.6) , Указав каталог, команда отлично работает в Windows и Linux.