如何在 tcl 中的单词之间提供可变间距？

Question

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

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个空格的列内左对齐

How to giving variable spacing between word in tcl?