Expect Script - 修复奇怪的终端调整大小行为

Question

我写了一个小的期望脚本来连接到多个 SSH 服务器。但是，如果我interact在初始化连接后使用终端，则终端窗口的行为非常奇怪。

例如，如果我在非全尺寸终端启动脚本，并调整窗口的大小使其变大后的Interact，它看起来像这样：

现在，我在我的第一个期望脚本中也遇到了这个问题。但是我能够通过添加以下代码来解决它：

trap {
    set XZ [stty rows   ]
    set YZ [stty columns]
    stty rows $XZ columns $YZ < $spawn_out(slave,name)
} WINCH

这工作得很好！我能够毫无问题地调整终端的大小。

但是，我将这段代码添加到我的新脚本中，其中interact在不同proc的（函数）中有多个。在调整窗口大小时，我收到以下错误：

无法读取“spawn_out(slave,name)”：没有这样的变量

执行时

“stty 行 $XZ 列 $YZ < $spawn_out(slave,name)”

我不知道如何解决这个问题。这是我的代码：

#!/usr/bin/expect -f

set SERVER "0"
set CHOICE "0"

set SERVER_1_PKEY [exec cat /home/me/p1]
set SERVER_2_PKEY [exec cat /home/me/p2]

set SERVER_1_HOST "server1.com"
set SERVER_2_HOST "server2.com"

set SERVER_1_USER "server1user"
set SERVER_2_USER "server2user"

set SERVER_1_PORT "22"
set SERVER_2_PORT "22"

trap {
    set XZ [stty rows   ]
    set YZ [stty columns]
    stty rows $XZ columns $YZ < $spawn_out(slave,name)
} WINCH

proc s1 {SERVER_1_PKEY SERVER_1_HOST SERVER_1_USER SERVER_1_PORT} {
    send_user "\033c"
    spawn ssh ${SERVER_1_USER}@${SERVER_1_HOST} -p ${SERVER_1_PORT}
    expect "assword:"
    send "${SERVER_1_PKEY}\r"
    interact
}

proc s2 {} {
    send_user "\033c"
    spawn ssh ${SERVER_2_USER}@${SERVER_2_HOST} -p ${SERVER_2_PORT}
    expect "assword:"
    send "${SERVER_2_PKEY}\r"
    interact
}

set arg [lindex $argv 0]
switch $arg {
    ""  { set CHOICE "0" }
    "1" { set CHOICE "1" }
    "2" { set CHOICE "2" }
}

if {$CHOICE eq "0"} {
    puts -nonewline " Input \[1,2\]: "
    flush stdout
    gets stdin SERVER
    if {$SERVER eq "1"} { s1 $SERVER_1_PKEY $SERVER_1_HOST $SERVER_1_USER $SERVER_1_PORT }
    if {$SERVER eq "2"} { s2 $SERVER_2_PKEY $SERVER_2_HOST $SERVER_2_USER $SERVER_2_PORT }
}

if {$CHOICE eq "1"} { s1 $SERVER_1_PKEY $SERVER_1_HOST $SERVER_1_USER $SERVER_1_PORT }
if {$CHOICE eq "2"} { s2 $SERVER_2_PKEY $SERVER_2_HOST $SERVER_2_USER $SERVER_2_PORT }

谁能帮我解决这个问题或告诉我我错过了什么？

Answer 1

当您在过程内调用 spawn 时，数组变量spawn_out(slave,name)仅具有该过程的范围。通常，您可以通过在每个过程中声明它来将其纳入全局范围：

proc s1 {...} {
  global spawn_out
  ...
  spawn ...
}
send_user $spawn_out(slave,name)