regex - 如何修剪绝对目录路径？

Question

我有目录 halo 的绝对路径： /pkg/check/power/halo

我只想将绝对路径修剪为： /pkg/halo

我如何使用 regex 或 pcreCompile 函数或 unix 来做到这一点？

score 3 · Accepted Answer

使用路径时，强烈建议您使用它们file split，file join因为它们会处理您不知道的奇怪现象。

set path /pkg/check/power/halo
set pieces [file split $path]
set result [file join {*}[lrange $pieces 0 1] [lindex $pieces end]]

或者（删除而不是选择它们）：

set result [file join {*}[lreplace $pieces 2 end-1]]

score 2 · Accepted Answer

使用 tcl：

set path "/pkg/check/power/halo"
set path [ split $path / ]
set path /[lindex $path 1]/[lindex $path end]

2 回答 2