0

如何在 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/

4

1 回答 1

3
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
于 2016-02-20T12:34:58.047 回答