escaping - 用于将其放入 TCL 中的正则表达式的转义字符串

Question

我Expect用作测试框架并编写一些辅助函数来简化expect命令匹配模式的键入。

因此，我寻找将任何字符串转换为字符串的函数，其中所有特殊的正则表达式语法都已转义（如*、|、和其他字符） +，[因此我可以将任何字符串放入正则表达式，而不必担心我会破坏正则表达式：

expect -re "^error: [escape $str](.*)\\."
refex "^error: [escape $str](.*)\\."  "lookup string..."

因为expect -ex编写expect -gl转义函数非常容易。但是expect -re因为我是 TCL 的新手，所以很难......

PS我写了这段代码，目前正在测试它们：

proc reEscape {str} {
    return [string map {
        "]" "\\]" "[" "\\[" "{" "\\{" "}" "\\}"
        "$" "\\$" "^" "\\^"
        "?" "\\?" "+" "\\+" "*" "\\*"
        "(" "\\(" ")" "\\)" "|" "\\|" "\\" "\\\\"
    } $str]
}

puts [reEscape {[]*+?\n{}}]

Answer 1

一种安全的策略是转义所有非单词字符：

proc reEscape {str} {
    regsub -all {\W} $str {\\&}
}

将&被表达式中匹配的任何内容替换。

例子

% set str {^this is (a string)+? with REGEX* |metacharacters$}
^this is (a string)+? with REGEX* |metacharacters$

% set escaped [reEscape $str]
\^this\ is\ \(a\ string\)\+\?\ with\ REGEX\*\ \|metacharacters\$