Tcl搜索/并删除

Question

我有一个层次结构字符串

Aa/bb/cc/dd
Ff/gg/hh/ii

我可以得到长度，但不知道如何得到最后一个"的索引/"如何获得上面一个层次结构的输出？

Aa/bb/cc
Ff/gg/hh

Answer 1

要去掉最后一个这样的组件，请使用以下组件之一：

1. regsub {/[^/]+$} $input ""-不用于文件名
2. join [lrange [split $input "/"] 0 end-1] "/"-而不是用于文件名
3. file dirname $input—用于文件名

必须取消它才能处理值列表。lmap命令非常方便；例如：

set outputList [lmap value $inputList {file dirname $value}]