“ |”的用途是什么在TCL中加入操作？

Question

我有以下代码段：

proc splitstr {text exprs} {
    if {$text eq {}} {
        return $text
    }
    set exprs [join $exprs |]
}

这是什么'|'在加入操作中做？ 如果我将其从手术中移除怎么办？是否对某事进行了安全检查？

Answer 1

命令join的第三个参数是 joinString 。 join命令在每个列表元素之间插入 joinString 。来自man page：

  

此命令返回通过连接所有元素形成的字符串    list 与 joinString 分开，每个相邻对   元素。

set data {1 2 3 4 5}
join $data ", "
     → 1, 2, 3, 4, 5

请注意，|在Tcl中没有特殊解释；它只是一个字符长的字符串。