tcl - 删除尾随字符

Question

请告诉我如何从 <> 之间嵌入的字符串末尾删除 = 和换行符 \n。

例如输入字符串

set string "abcd  1234   abc=
"

我只想从末尾删除 = 和新行

Answer 1

如果你想去掉所有的=和末尾的换行符，不管有多少，我建议string trimright

set string "abcd  1234   abc=
"
string trimright $string =\n
set str2 "abc===="
string trimright $str2 =\n ; returns abc

如果知道最后2个字符是=\n，也可以使用string range

string range $string 0 end-2

对于更复杂的解决方案，正则表达式是合适的。