tcl split string с переменными

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