TCL，正则表达式与 ')'，']'或'}'

Question

我正在尝试在 TCL 中编写一个正则表达式来检测字符串末尾的 0 个或多个字符 ')'、']' 或 '}'。

如下所示，使用 a、b 和 c 代替 )、]和 }...

% regexp {[a]*$} "_______a" m
1
% put $m  ; # Prints affected portion
a
% regexp {[a]*$} "_______aaaa" m
1
% put $m
aaaa
% regexp {[ab]*$} "_______ababababab" m
1
% put $m
ababababab
% regexp {[abc]*$} "_______abcbabcaccc" m
1
% put $m
abcbabcaccc
%

我找不到如何转义字符。

提前致谢。

Gmne

---

已添加...

在它们前面加上 \ ，例如 \) 。

谢谢MRAB。这在 Linux 上工作得很好！ 但对于Windows来说似乎不一样..

% ### Windows:
% regexp {[\)\]\}]+$} "_____)))"
0
% regexp {[\)]+$} "_____)))" m
1
% puts $m
)))
% regexp {[\)]+$} "_____)\\\\" m
1
% puts $m
)\\


% ### Linux
% regexp {[\)\]\}]+$} "_____)))" m
1
% puts $m
)))

有什么建议吗？

Answer 1

在它们前面加上 \，例如 \)。