Как заменить специальный символ в строке сценарием 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"