如何在 tcl 中创建一个空文件？

Question

我想创建一个空文件，或者如果文件已经存在则不执行任何操作。截断现有文件也可以。

目前我这样做：

exec touch file/name.txt

这可行，但取决于外部命令，并且只能在 UNIX-y 上运行 OS。有没有一种方法可以做到既简洁又便携？

Answer 1

只需打开一个文件进行写入并立即关闭它：

创建或截断（结果总是一个空文件）：

close [open file/name.txt w]

创建或什么都不做（感谢 Donal Fellows）：

close [open file/name.txt a]

• open
• close

感谢 Shawn 的建议。