使用tcl/tk的临时目录

有没有办法使用tcl/tk查找临时目录？ 与python中的类似-->

---

print tempfile.gettempdir（）#打印当前临时目录

没有特定的函数来执行此操作。你可以做：

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

函数

---

将返回要使用的文件句柄。

8.7添加了

file tempdir

。