求助：在Tcl 8.0中使用regsub修正文本标点错位问题

有一段经Tcl代码修改后的文本，当前格式如下：
word1 word2 word3 word4 , word5 word6 word7 word8 . word9 , word10 word11 word12 ; word13 word14 word15...
可见标点（如, . ;等）与前一个单词间存在空格，需将其移至对应单词末尾，修正为：
word1 word2 word3 word4, word5 word6 word7 word8. word9, word10 ...
因使用Tcl 8.0（无string replace命令），希望通过regsub命令实现。

解决方案 #

可以利用Tcl的regsub结合正则表达式捕获组功能，一次性替换所有符合条件的空格与标点组合：

# 原始文本
set input_text "word1 word2 word3 word4 , word5 word6 word7 word8 . word9 , word10 word11 word12 ; word13 word14 word15..."

# 使用regsub批量修正格式
regsub -all { (\.|,|;) } $input_text {\1 } modified_text

# 输出结果
puts $modified_text

代码说明 #

• -all 参数：确保替换所有匹配的情况，而非仅第一个
• 正则表达式 (\.|,|;)：捕获空格后的目标标点（.在正则中是特殊字符，需要用\转义），前面的空格是需要移除的部分
• 替换字符串 \1 ：将捕获到的标点（\1对应第一个捕获组）放在前面，后面添加空格，实现把空格从单词与标点之间移到标点之后

如果需要处理更多类型的标点（比如:），只需在正则表达式的捕获组中添加对应的符号即可，例如调整为 (\.|,|;|:)。

内容的提问来源于stack exchange，提问作者Theoretical Physics