perl - 如何检索作为命令行参数传递给Expect脚本的数组变量元素

Question

我有一个 Perl 脚本，它调用一个带有传递给它的命令行参数的 Expect 脚本。我想知道如果我们将数组变量作为参数传递，我们如何在期望脚本中检索数组变量？对于作为命令行参数传递的简单变量：使用 set var [lindex $argv 0]。我需要知道如何以类似的方式访问数组变量并在期望脚本中使用它的元素。示例代码会有很大帮助！期待回复，

谢谢你。

Answer 1

expect 全局变量$argv是一个列表（即 perl 数组）。如果您想在不同的变量中捕获它：

set myvar $argv

或者直接使用

foreach item $argv {
    do something with $item
}