在tcl中，「if {-s $ file-name}」的等效命令是什麼？

Question

如何檢查文件是否存在但在tcl中爲空？我的意思是在shell中存在諸如if [ -s <file-name> ]的任何等價命令？

Answer 1

你可以使用「文件大小」。如果文件不存在，這會返回一個錯誤，所以你只需要抓住它就可以了。

Answer 2

Brian Fenton has the right answer。用代碼表示他的想法：

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

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