如何进行reg exp替换,只替换Tcl中同一个char的某些匹配项

Question

我想在tcl中使用一个表达式并将其转换_为<,>如果它们是一个数字.一些例子:

• bla_bla_4_ - > bla_bla<4>
• bla_bla_4 - > bla_bla_4
• bla_4_ - > bla<4>

我该怎么做？我在regsub的手册中找不到它.

Answer 1

你需要正确的模式.

set parts {"bla_bla_4_" "bla_bla_4" "bla_4_"}
foreach part $parts {
   regsub -all {_(\d+)_} $part {<\1>} result
   puts "$part -> $result"
}

这回来了

bla_bla_4_ -> bla_bla<4>
bla_bla_4 -> bla_bla_4
bla_4_ -> bla<4>