TCL练习3：append、lappend

append将多个变元按顺序组合起来，并形成一个新的字符串。

lappend将多个变元按顺序组合起来，形成一个新的List。

set myCurrentLogVar1 ""
set myCurrentLogVar2 ""

set script1 {
    puts "logging now"
    lappend myCurrentLogVar1 "Say: "
}

set script2 {
    puts "logging out"
    append myCurrentLogVar2 "Say: "
}

for {set i 0} {$i<1} {incr i} {
    eval $script1 $i [clock clicks]
    puts $myCurrentLogVar1
    foreach x $myCurrentLogVar1 {
       puts $x
    }
}

for {set i 0} {$i<1} {incr i} {
    eval $script2 $i [clock clicks]
    puts $myCurrentLogVar2
    foreach x $myCurrentLogVar2 {
       puts $x
    }
}

以上程序输出为：

        (eval) 8 % source eval_t1.tcl logging now {Say: } 0 3666100321 Say: 0 3666100321

        logging out Say: 03666118213 Say: 03666118213

在logging now时使用了lappend，所以“Say： ”、$i和[clock clicks]（系统时钟周期数）三个变元形成了一个名为myCurrentLogVar1的List。通过foreach打印时，分三行输出了上述3个List中的元素。

在Logging out时使用了append，所以“Say： ”、$i和[clock clicks]（系统时钟周期数）三个变元形成了一个名为myCurrentLogVar2的字符串。所以$i和[clock clicks]会当作字符串组合在一起，且两者之间不会有空格。最后通过foreach打印时，以空格为分隔符提取了myCurrentLogVar2中的内容，分别是"Say: "，以及由$i、[clock clicks]组合而来的03666118213。