tcl中如何将列表转换为字符串

Question

如何在 Tcl 中将列表转换为字符串？

Answer 1

您最有可能想要的是加入，但是根据您想要执行的操作，这可能不是必需的。

TCL 中的任何内容都可以随时被视为字符串，因此您可以只使用您的列表为字符串，无需显式转换

Answer 2

如果你只想要内容，你可以放入 $listvar ，它会将内容作为字符串写出。

您可以将列表展平一级或使用 join 插入分隔符，如 jk 上面的回答。

例子：

% set a { 1 2 3 4 { 5 6 { 7 8 9 } } 10 }
 1 2 3 4 { 5 6 { 7 8 9 } } 10 
% puts $a
 1 2 3 4 { 5 6 { 7 8 9 } } 10 
% join $a ","
1,2,3,4, 5 6 { 7 8 9 } ,10
% join $a
1 2 3 4  5 6 { 7 8 9 }  10

Answer 3

set list {a b c d e f}
for {set i 0} {$i<[llength $list]} {incr i} {
    append string [lindex $list $i]
}
puts $string

Answer 4

要使用类展平列表：

set list { 1 2 3 4 { 5 6 { 7 8 9 } } 10 }

package require struct::list
struct::list flatten -full $list

Answer 5

这里：

% join {abc} " and "

a and b and c

% join {abc} ""

abc

(来源： https://wiki.tcl-lang.org/page/join)

Answer 6

set a { 1 2 3 4 { 5 6 { 7 8 9 } } 10 }
set rstr [regexp -all -inline {\S+} $a]
puts $rstr

Answer 7

使用列表命令。

http://wiki.tcl.tk/440

或者，参见“split”：http://wiki.tcl.tk/1499

split "comp.unix.misc"

返回“comp unix Misc”