Tcl：[文件临时目录]

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
}

Answer 3

我做了什么：

set workdir [exec mktemp -d]

注意：这取决于外部二进制文件mktemp。我认为这应该适用于任何东西 UNIX-y.