Tcl regsub 与 subst 一起使用会产生意外的结果

Question

编辑： 对于给定的 str 参数，我试图用“xor_in[0]”替换“xor_in0”，用“xor_in[1]”替换“xor_in1”。这里“xor_in0”、“xor_in1”是传入的参数，我将其表示为“key”，而“xor_in[0]”、“xor_in[1]”是存储在数组中的值参数。注意这里的重点是将 "str" 中的每个 "key" 替换为 "value" 。这是我的测试代码：

set str "(xor_in0^xor_in1)"
set str1 "xor_in0^xor_in1" # another input
set key "xor_in0"
set value "xor_in\[0\]"
set newstr ""
set nonalpha  "\[^0-9a-zA-Z\]"
regsub -all [subst {^\[(*\]($key)($nonalpha+)}] $str [subst -nobackslashes {$value\2}] newstr
puts $newstr

但不知何故，它不起作用...我也尝试删除 [subst ...]，但它仍然无法匹配任何内容。这在某种程度上违背了我对正则表达式的了解。请帮忙。

Answer 1

对我来说，一切似乎都过于复杂了。

让我们看看您实际要执行的regsub。轻松做到这一点有一个技巧。如果你的命令是：

regsub -all [subst {^\[(*\]($key)($nonalpha+)}] $str [subst -nobackslashes {$value\2}] newstr

然后我们可以打印出它将尝试做什么：

puts [list regsub -all [subst {^\[(*\]($key)($nonalpha+)}] $str [subst -nobackslashes {$value\2}] newstr]

这表明你真的这样做了：

regsub -all {^[(*](xor_in0)([^0-9a-zA-z]+)} (xor_in0^xor_in1) {xor_in[0]\2} newstr

其中看起来有点奇怪的部分是 RE 末尾的 ([^0-9a-zA-z]+)。这是合法，但很奇怪，因为我们可以用\W 写一些不同的东西来匹配非alpha：

regsub -all {^[(*](xor_in0)(\W+)} $str {xor_in[0]\2} newstr

这似乎奏效了。那么错误可能是什么？ nonalpha 的定义，因为您使用的是 "\[^0-9a-zA-z\]" 而不是 "\[^0-9a-zA-Z\]"。 是的，文字 ^ 位于从 A 到 @ 的 ASCII（和 Unicode）范围内987654333@…

---

OTOH，我实际上希望真正像这样进行转换：

set newstr [regsub -all {(\y[a-zA-Z]+_in)(\d+)} $str {\1[\2]}]

您不习惯的只有\y（字边界约束）和\d（匹配任何数字）。或者，对于简单的转换（将文字子字符串的所有实例映射到另一个文字子字符串）：

set newstr [string map [list $key $value] $str]

Answer 2

实际上我的问题的真正问题是 A-z 错字:)

Answer 3

简单通常更好：

regsub -all {\d+} $s {[&]} s

照顾您的示例。