(Tcl/Expect) 退出后清屏

jjc*_*son 2 automation interactive tcl exec expect

从我的(半)交互式期望脚本退出后,我想清除屏幕(在本地机器上)。我可以从脚本中做到这一点吗?这是我尝试过的,失败了。

#!/usr/bin/expect -f
set env(TERM) vt100
spawn ssh -Y username@domain
set user username
set pass password 
#login sequence
expect "password: "
send "${pass}\r"
sleep .5  
#some menu commands to enter ERP....
#...
#...
set CTRLZ \032
set CTRLC \003
set CTRLA \001
#don't time out
set timeout -1 
        interact {
                -reset $CTRLZ {exec kill -STOP [pid]}
                $CTRLA   {   
                        exp_send "menucmd...\ry\r"
                }   
                $CTRLC   {  

                        #clear the host machine screen???
                        exec clear
                        exit
                }
                ~~  
        } 
Run Code Online (Sandbox Code Playgroud)

在远程端,我不在 shell 中,而是在 ERP 程序中。如果有必要,我可以退出到 shell,然后在远程主机上执行“清除”操作,但我认为远程主机提示仍会出现在屏幕上。

编辑:更改为在“退出”之前尝试清除(子问题:在运行期望脚本的机器上执行“exec clear”对吗?)

sle*_*man 5

一旦你[退出],之后的一切都不会被执行。你应该在退出前 [exec clear]。

如果您使用的是与 vt100 兼容的终端(大多数 Unix 终端都是如此),那么您可以尝试直接向终端发送 vt100 命令:

puts \033\[2J
Run Code Online (Sandbox Code Playgroud)