Tcl正则匹配问题：含数字与字符串的模式无法匹配

• Tcl字符串转义规则：双引号包裹的字符串中，\是Tcl的转义符，直接写\d会被Tcl解析为d（因为\d不是Tcl的有效转义序列），正则引擎实际接收到的是abcd+.*Batman，无法匹配数字。
• 正则模式差异：Tcl的regexp默认使用基本正则表达式（BRE），BRE中+、{2}是普通字符，不表示量词；而Python正则属于扩展正则表达式（ERE），量词可直接生效。

推荐两种简洁的修正方式：

方式1：大括号包裹模式+开启ERE模式 #

大括号包裹的字符串不会被Tcl解析转义符，能直接传递\d、+、{2}给正则引擎，配合-expanded选项开启ERE模式，语法更贴近Python正则：

set string "abc08_batman"
set patternTwo {abc\d+.*Batman}
set patternThree {abc\d{2}.*Batman}

if {[regexp -nocase -expanded $patternTwo $string c]} {
   puts "Full Match 2: $c"
}

if {[regexp -nocase -expanded $patternThree $string c]} {
   puts "Full Match 3: $c"
}

方式2：双引号转义+开启ERE模式 #

若坚持用双引号，需将\转义为\\（让Tcl传递真实的\给正则引擎），同时开启ERE模式：

set string "abc08_batman"
set patternTwo "abc\\d+.*Batman"
set patternThree "abc\\d{2}.*Batman"

if {[regexp -nocase -expanded $patternTwo $string c]} {
   puts "Full Match 2: $c"
}

if {[regexp -nocase -expanded $patternThree $string c]} {
   puts "Full Match 3: $c"
}

兼容BRE的替代方案 #

如果不想开启ERE模式，可使用BRE原生语法：用[0-9]代替\d，同时将量词转义（\+表示一次或多次，\{2\}表示恰好两次）：

set string "abc08_batman"
set patternTwo "abc[0-9]\+.*Batman"
set patternThree "abc[0-9]\{2\}.*Batman"

if {[regexp -nocase $patternTwo $string c]} {
   puts "Full Match 2: $c"
}

if {[regexp -nocase $patternThree $string c]} {
   puts "Full Match 3: $c"
}

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