Tcl regexp反向引用失效：匹配非重复相邻字符报错求助

问题描述 #

我是正则表达式和Tcl的新手，长期面临一个基础问题。我的任务是找出给定单词中所有紧邻下一个字符与其不相同的字符，编写了如下Tcl代码片段：

set str "goooo";
set lst [regexp -all -inline {(\w)[^\1]} $str];
puts $lst

但运行时出现如下错误：

couldn't compile regular expression pattern: invalid escape \ sequence
    while executing
"regexp -all -inline {(\w)[^ \1]} $str"

请问在Tcl中还有其他使用反向引用的方法吗？

错误原因 #

Tcl的正则表达式里，字符类（[]）内部不支持反向引用。你写的[^\1]属于错误用法：\1在字符类中会被当成无效的转义序列，而非引用之前捕获的子串。

解决方法 #

方法1：使用负向先行断言（推荐） #

要实现“匹配一个字符且下一个字符与它不同”的需求，改用负向先行断言(?!\1)（检查当前字符后的字符不等于捕获组内容），避免在字符类里用反向引用：

set str "goooo"
# 匹配所有后续字符（或无后续字符）与自身不同的字符
set lst [regexp -all -inline {(\w)(?!\1)} $str]
# 提取捕获到的目标字符（去掉重复的全匹配结果）
set result [lmap {match char} $lst {set char}]
puts $result

运行结果：g o（包含最后一个无后续字符的o）。如果只想保留有后续字符且后续字符不同的目标，把正则改为(\w)(?=(.))(?!\1)，结果会是g。

方法2：字符串遍历（新手友好） #

如果对正则还不熟悉，直接用Tcl的字符串遍历逻辑更直观：

set str "goooo"
set result {}
set len [string length $str]

for {set i 0} {$i < $len} {incr i} {
    set current_char [string index $str $i]
    # 跳过最后一个字符（按需调整）
    if {$i == $len -1} continue
    set next_char [string index $str [expr {$i + 1}]]
    if {$current_char ne $next_char} {
        lappend result $current_char
    }
}

puts $result

运行结果：g，完全符合“紧邻下一个字符与自身不同”的需求。

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