期望脚本创建列表并附加到它

如何解决期望脚本创建列表并附加到它

我目前正在尝试将列表创建到期望脚本中并稍后填充

我可以如下声明和初始化列表

#!/usr/bin/expect

set matchList [list test1 test2]

foreach elem $matchList {
    puts $elem
}

结果如下

$ ./tmp.expect 
test1
test2

但是我找不到将新字符串正确附加到列表中的方法

我尝试了好几种语法都没有找到正确的方法

• set matchList [list $matchList test3]

认为'test1 test2'是第一个元素，'test3'是第二个元素

$ ./tmp.expect 
test1 test2
test3

• set matchList [list [foreach elem $matchList { puts $elem } ] test3]

设置第三个元素为空字符串，'test3'为第四个元素

$ ./tmp.expect 
test1
test2

test3

• set matchList [list [foreach elem $matchList { puts $elem } ]test3]

通过去掉 foreach 块后的空格，列表被正确填充。然而，做这样一个简单的任务似乎有点矫枉过正。

$ ./tmp.expect 
test1
test2
test3

有人知道如何正确地将一个列表元素一个元素地填充到一个期望脚本中吗？

解决方法

在 Tcl 中将元素添加到列表末尾的正确方法是使用 lappend;第一个参数是包含列表的变量的名称，第二个和后续参数是要附加的值：

lappend matchList test3

即使值中嵌入了元字符，这也能正常工作。