我明白你碰到的麻烦了——当字符串里有带引号的元素，后面直接跟右括号还没空格时，不用大括号包裹代码就跑不起来，试了其他方案也没达到预期效果。先拆解下问题根源，再给你几个可行的解决办法：

为什么不用大括号就出错？ #

Tcl对字符串的解析规则很关键：用双引号包裹字符串时，它会自动做变量替换、命令替换，还会把字符串里的双引号当作边界。你原始的set line用双引号的话，里面的"identifier"会被Tcl误认为是字符串的结束/开始，导致$line的实际内容被拆得乱七八糟，后续的string map和foreach自然没法正常工作。而用大括号包裹时，Tcl会原封不动保留所有内容，不做任何解析替换，字符串就能完整传递。

另外你原来的string map写法也有问题，它需要的是「旧字符串-新字符串」成对的列表，你写的( { } ) {}完全不符合语法，根本没法正确替换括号。

解决方案1：转义特殊字符+修正string map #

如果不想用大括号，就得把字符串里的双引号转义，同时修正string map的写法：

set line "H_Dev: Issue with DELETE funtion in OSPF OC (Input List is missing required key \"identifier\")"
foreach {name value} [string map {( " " ) " "} $line] {
    puts "$name $value"
}

这里用\"转义双引号，确保Tcl把整个内容当成一个完整字符串；string map {( " " ) " "}则正确把左、右括号都替换成空格，这样拆分后的列表就能被foreach正常处理。

解决方案2：用大括号包裹字符串（最省心的方式） #

这其实是你已经发现的可行路径，用大括号是Tcl里保留原始字符串最可靠的方式，不用转义任何字符，再配合修正后的string map：

set line {H_Dev: Issue with DELETE funtion in OSPF OC (Input List is missing required key "identifier")}
foreach {name value} [string map {( " " ) " "} $line] {
    puts "$name $value"
}

额外优化：如果只是提取键值对 #

要是你的核心需求就是把H_Dev:作为name，后面的所有内容作为value，其实没必要折腾string map和foreach，直接拆分更高效：

set line {H_Dev: Issue with DELETE funtion in OSPF OC (Input List is missing required key "identifier")}
set colon_pos [string first ": " $line]
set name [string range $line 0 [expr {$colon_pos - 1}]]
set value [string range $line [expr {$colon_pos + 2}] end]
puts "$name -> $value"

这种方式完全避开了括号和空格的列表拆分问题，精准提取你需要的内容。

内容的提问来源于stack exchange，提问作者sam