如何用tcl脚本用字符串中的前导和后继数字替换特定字符？

Question

我只想将字符串中的破折号（"-"替换为破折号，并在其两侧用空格括起来（" - "），但前提是数字在和< / strong>找到破折号后。

例如，

-1.5-5.3

会变成

-1.5 - 5.3

Answer 1

% puts [regsub -all {(\d)-(\d|-)} "-1-23--42" {\1 - \2}]
-1 - 23 - -42