Tcl：[文件tempdir]

Question

以某种方式tcl 8.6：

• file tempdir - 缺少
• file tempfile - 现身

问题：为什么没有tempdir？

Answer 1

没有file tempdir因为没有足够迫切需要有人对其进行编码，而临时文件则更加紧迫（并且更难以正确，特别是在操作系统中）。您可以随时使用tcllib和Tcl，因为它们处于相同的许可证下;该Tcl脚本包库提供了一个具有此命令的fileutil包：

set dirname [fileutil::maketempdir]

这应该足够了。 （有很多选项可以满足大多数需求。）

Answer 2

没有fileutil依赖关系的模式：

proc ::util::tempdir {template} {
    close [file tempfile path $template]
    file delete $path
    file mkdir $path
    return $path
}