Tcl 打印 cwd 并将其用作字符串

Question

我正在用 tcl 为 VMD 制作一个小脚本：

mol load psf run_1/structure.psf xtc run_1/postDocking_wrapped.xtc
set final [atomselect top "not (water or ions or resid 1216)" frame last]

$final writepdb last_frame.pdb
puts "finished!"

quit

我希望我可以将我正在使用的文件夹作为字符串添加到 last_frame.pdb

喜欢：last_frame_A1234.pdb 其中 A1234 是我当前的文件夹。当我尝试时：

set path [file dirname [file normalize [info script] ] ]

只是 returns 一个“.”

我也试过：

set path [file [info script]]

但结果始终是“.”而不是 A1234F。

如果我输入：

set path [pwd]

它会给我完整的路径（带有“/”）并且 writepdb 不接受特殊字符。

有什么方法可以直接获取cwd吗？或仅从 pwd 访问最后一个文件夹并将其用作字符串？

谢谢！

Answer 1

尝试：set path [file tail [pwd]]

Tcl 打印 cwd 并将其用作字符串

Tcl print cwd and use it as string

tcl

pwd

getcwd

vmd