使用 tcl/tk 的临时目录

Question

有什么方法可以使用 tcl/tk 找到临时目录吗？类似于python--> print tempfile.gettempdir() # 打印当前临时目录

Answer 1

没有特定的功能可以做到这一点。你可以这样做：

set tmpdir {}
set tdlist {}
set dlist [list TMPDIR TEMP TMP]
foreach {d} $dlist {
  if { [info exists ::env($d)] } {
    lappend tdlist $::env($d)
  }
}
# add more locations to this list if needed
lappend tdlist C:/temp c:/tmp /tmp /var/tmp
foreach {d} $tdlist {
  if { [file exists $d] && [file isdirectory $d] } {
    set tmpdir $d
    break
  }
}

如果你只需要一个临时文件，有file tempfile函数将 return 要使用的文件句柄。

使用 tcl/tk 的临时目录

Temp directory using tcl/tk

tcl

temp