expect - 期望：如何将执行环境导出到运行时环境？（发送密钥的地方）

Question

我尝试了以下方法：

set timeout -1
spawn $env(SHELL)
match_max 100000

send -- "ssh somewhere@addr"
expect "*"
for { set i 0 } { $i < [array size env] } { incr i } {
  send -- "echo env($i) = $env($i)"
  expect "*"
}
send -- "env > foo\r"
expect "*"
send -- "^D"
expect eof

以上失败并出现以下错误：

no such variable
    (read trace on "::env(0)")
    invoked from within
"send -- "echo env($i) = env($i)""
    ("for" body line 2)
    invoked from within
"for { set i 0 } { $i < [array size env] } { incr i } {
    send -- "$::env($i)"
    expect "*"
}"
    (file "./script.exp" line 52)

我将通过重新采购rc文件来解决系统问题；我只想将我设置的未知变量集合（相对于脚本）传输到远程执行环境。

这可能吗，我不熟悉TCL（完全初学者）？

Answer 1

Tcl数组更像是键和值的字典，而不是按数字索引的列表。您可以使用以下方式获取键列表[array names env]并遍历它们foreach：

foreach n [array names env] {
  send -- "echo env($n) = $env($n)\r"
  expect "\n"
}