如何在tcl中的单词之间给出可变的间距？

Question

我刚刚开始学习Tcl，我的主要目标是打印两个这样的列表：

List1             List2
1                 A
2                 B
3                 C
4                 D

Answer 1

您可以使用循环和format：

set List1 {1 2 3 4}
set List2 {A B C D}
puts [format %-10s%-10s List1 List2]
foreach i $List1 j $List2 {
    puts [format %-10s%-10s $i $j]
}

以上内容的输出：

List1     List2
1         A
2         B
3         C
4         D

注意：在上文中，%-10s大致意味着将文本在10个空格的列中左对齐