Tcl：cd回到上一個目錄

Question

在Unix上，cd -可以切換回到上一個目錄。我想知道在tcl解釋器中是否有類似的命令可以做同樣的事情？

Answer 1

不，在Tcl中沒有目錄堆棧，並且以前的目錄不記住任何地方。

TclX提供了目錄棧pushd和popd命令，但它不修改cd命令把任何東西在那裏。它可以通過命令包裝和重命名完成，但我不會推薦它用於腳本中可以使用的東西（至少不要覆蓋cd -的語義）。

Answer 2

默認情況下，Tcl不保留目錄歷史/堆棧;你必須添加一個。你可以這樣做，在純Tcl的，但：

rename cd real_cd 
variable old_dir [pwd] 
proc cd {directory} { 
    variable old_dir 
    if {$directory eq "-"} { 
     set directory $old_dir 
    } 
    set old_dir [pwd] 
    real_cd $directory 
} 

這是一個非常簡單的版本，只記得最後一個位置，但一切可以以同樣的方式頂部建造。