期待脚本 - 修复奇怪的终端大小调整行为

Question

我写了一个小的expect脚本来连接多个SSH服务器。 但是，如果在初始化连接后I interact与终端有关，则终端窗口表现得非常奇怪。

例如，如果我在非全尺寸终端中启动脚本，并调整窗口大小以使其在<{strong> 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 rows $ XZ columns $ YZ＆lt; $ 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)