Какова эквивалентная команда «if {-s $ file-name}» в tcl? - PullRequest
1 голос
/ 12 июля 2011

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

Ответы [ 2 ]

4 голосов
/ 13 июля 2011

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

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

if {[-s $file]} {...}
2 голосов
/ 13 июля 2011

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

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...