Какова эквивалентная команда «if {-s $ file-name}» в tcl?

Question

Как проверить, существует ли файл, но пустой в tcl?Я имею в виду, существует ли какая-либо эквивалентная команда для этого, например if [ -s <file-name> ] в оболочке?

Answer 1

Брайан Фентон имеет правильный ответ . Чтобы выразить свою идею в виде кода:

proc -s {filename} {
  set rc [catch {file size $filename} size]
  return [expr {$rc == 0 && $size > 0}]
}

if {[-s $file]} {...}

Answer 2

Вы можете использовать «размер файла».Это возвращает ошибку, если файл не существует, так что вы просто поймаете это и все готово.