set some_string "Name/is/ComplexSTRUCTUre"
将此字符串转换为
some_string = "Name/is/ComplexSTR.CTUre"
即首先替换"U"为"."
"U"
"."
string tcl character-replacement
character-replacement ×1
string ×1
tcl ×1