tcl用变量拆分字符串

Question

如何在tcl中拆分名称？

NEW in ARCHIVE XVID/J/JURASSIC.WORLD 

路径并不总是相同，也可能是这样

/XVID-BOXSET/007.A.VIEW.TO.A.KILL 

并将其设置为变量，一个变量设置名称，一个设置路径。

我需要以下变量：

名称示例：JURASSIC.WORLD bzw 007.A.VIEW.TO.A.KILL

路径示例：XVID/J/ bzw /XVID-BOXSET/

Answer 1

set pn [lindex {NEW in ARCHIVE XVID/J/JURASSIC.WORLD} 3]
# -> XVID/J/JURASSIC.WORLD
set path [file dirname $pn]
# -> XVID/J
set name [file tail $pn]
# -> JURASSIC.WORLD