Tcl正则提取字符串起始段问题：未正确获取最后一个句点前内容

你当前写法的偏差来自Tcl双引号转义规则和正则转义需求的冲突：

• Tcl的双引号字符串在求值时会自动执行反斜杠替换：不属于有效转义序列的反斜杠会被直接移除。你在双引号里写的\.本来是要给正则引擎传递“匹配字面句点”的逻辑，但实际被Tcl处理后，传递给regexp的模式变成了^(.*).*.*$——原本的字面点匹配完全失效，变成了匹配任意单个字符。
• 失效的正则会按照POSIX最长贪婪匹配规则，把捕获组的内容扩展到字符串长度减1的位置（也就是刚好去掉最后一个字符），最终得到的abcd.q.bis其实是原串去掉最后一个字符的结果，整个计算过程根本没有句点匹配的逻辑参与。

修正正则写法 #

• 最稳妥的方案是用花括号{}包裹正则模式，花括号内的内容会被Tcl原样传递，不会触发任何转义替换：

  set a abcd.q.alpha
  regexp {^(.*)\..*$} $a match sig
  puts $sig ;# 输出 abcd.q，符合预期
  

• 如果必须用双引号包裹正则模式，需要给反斜杠再加一层转义，让Tcl处理后能给正则引擎保留正确的转义标记：

  regexp "^(.*)\\..*$" $a match sig
  

更直观的非正则实现 #

针对“截取到最后一个句点之前”的需求，用Tcl原生字符串操作的可读性更好，也能完全避开正则转义的常见坑：

set a abcd.q.alpha
set last_dot_pos [string last "." $a]
set sig [string range $a 0 [expr {$last_dot_pos - 1}]]
puts $sig ;# 同样输出 abcd.q

内容的提问来源于stack exchange，提问作者mickeyj。