tcl - 使用 tcl/tk 的临时目录

Question

有没有办法使用 tcl/tk 找到临时目录？与python中的类似--> print tempfile.gettempdir() #打印当前临时目录

标签： tcltemp

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函数将返回要使用的文件句柄。