如何用tcl脚本替换字符串中的特殊字符？

Question

在file.txt中

obj = "hi/this/is[1]/script"

将字符串转换为

obj = "hi/this/is\[1]/script"

在tcl中有办法吗？

Answer 1

如果要替换所有出现的字符，string map非常适合：

# Careful with the quoting here
set obj [string map [list {[} {\[}] $obj]

如果您只想替换第一个匹配项，regsub是一个更好的工具

set obj [regsub {\[} $obj {\\&}]

（&成为匹配的字符串，我们需要注意RE和替换文本中的反斜杠。）

Answer 2

一种方法是使用string map：

% set obj {obj = "hi/this/is[1]/script"}
obj = "hi/this/is[1]/script"
% string map {\[ \\\[} $obj
obj = "hi/this/is\[1]/script"