tcl 中“if {-s $file-name}”的等效命令是什么？

Question

如何在tcl中检查文件是否存在但为空？我的意思是是否存在任何等效的命令，例如if [ -s <file-name> ]在 shell 中？

Answer 1

布莱恩·芬顿有正确的答案。将他的想法表达为代码：

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

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