Какая польза от «|» в операции соединения в TCL?

Question

У меня есть следующий фрагмент кода:

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

Что означает это '|'делать в операции соединения?Что если я удалю это из операции? Это проверка безопасности для чего-либо?

Answer 1

Третий аргумент команды join - это joinString .Команда join вставляет joinString между каждым элементом списка.Со страницы руководства :

Эта команда возвращает строку, сформированную путем объединения всех элементов list вместе с разделением joinString каждая соседняя пара элементов.

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

Обратите внимание, что | не имеет специальной интерпретации в Tcl;это просто строка длиной в один символ.