Tcl: cd 回到上一级目录

Question

在 Unix 上，cd - 可以切换回上一级目录。我想知道 tcl 解释器中是否有类似的命令可以做同样的事情？

Answer 1

默认情况下，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
}

这是一个非常简单的版本，它只记住最后一个位置，但其他一切都可以用同样的方式构建在上面。