tclsh与wish执行Tcl Expect脚本输出差异原因及修复方案

我之前也碰到过类似的问题，核心原因是tclsh和wish的终端交互环境差异，导致Expect的输出捕获行为不一致，具体拆解和修复方案如下：

为什么会出现这种差异？ #

1. 终端缓冲模式不同 #

• tclsh是纯命令行shell，运行在标准终端（pty）中，Expect默认会将spawn的进程和这个终端关联，终端的缓冲模式是为交互式命令行优化的，能实时、完整地传递服务器输出给Expect。
• 而wish是Tcl的GUI shell，它本身没有绑定真实的终端，Expect在这种环境下创建的伪终端（pty）会被设置为不同的缓冲模式（比如行缓冲或全缓冲），服务器返回的部分输出会被滞留在缓冲里，没有及时被expect指令捕获——这就是为什么Wireshark看到服务器发了完整内容，但wish里的expect_out(buffer)只拿到了一部分。

2. 正则匹配失败的连锁反应 #

当expect -re {limit No. : (\d+)}在wish中因为缓冲问题没捕获到完整的匹配文本时，expect_out(1,string)这个捕获组变量根本不会生成，后续的set lim_val $expect_out(1,string)自然会报错。

3. expect *的行为差异 #

expect *是匹配任意字符，但在wish的缓冲环境下，脚本可能还没等服务器输出完就继续执行后续代码，导致只捕获了部分内容；而tclsh里终端缓冲正常，能等待所有输出完成后才触发匹配。

修复方案 #

针对这些问题，你可以从终端配置、匹配逻辑、运行环境三个方向入手修复：

1. 强制设置spawn进程的终端为无缓冲模式 #

在spawn之后，立即配置终端关闭缓冲，确保服务器输出能实时传递给Expect。可以用stty命令直接设置：

spawn telnet 172.19.10.10
# 等待telnet初始化完成后，发送stty命令配置终端
expect "Escape character is"
send "stty -icanon min 1 time 0\r"

-icanon关闭规范模式（取消行缓冲），min 1表示只要有1个字符就立即返回，time 0表示不等待超时，这样所有输出都会实时被Expect捕获。

2. 给关键expect操作增加超时和调试逻辑 #

在容易出现匹配失败的expect语句中，增加超时时间，并在超时后输出当前缓冲内容，方便排查问题：

# 替换原来的expect正则匹配语句
expect -timeout 5000 -re {limit No. : (\d+)} {
    set lim_val $expect_out(1,string)
    set exp_out $expect_out(buffer)
} timeout {
    send_user "匹配超时！当前已捕获的缓冲内容:\n$expect_out(buffer)\n"
    exit 1
}

这样即使匹配失败，你也能看到当前捕获到的内容，进一步调整匹配逻辑或终端配置。

3. 用伪终端环境运行wish脚本 #

如果必须用wish执行，可以借助xterm（Linux）或类似的终端模拟器提供标准终端环境：

xterm -e wish script.tcl

这样wish会在一个标准终端中运行，Expect的行为就和tclsh完全一致了。

4. 避免模糊匹配，改用明确的结束标记 #

尽量不要用expect *这种模糊匹配，如果你的命令执行完有明确的结束标记（比如特定提示符），直接匹配这个标记能确保捕获完整输出：

send "your_command\r"
expect "your_prompt>"  # 替换成实际的结束提示符
set exp_out $expect_out(buffer)

这种方式比expect *更可靠，不受终端环境的影响。

针对你提供的脚本的具体修改 #

结合上面的方案，修改后的脚本如下（关键修改处已标注）：

package require Expect
set DOWN2 \033OB
spawn telnet 172.19.10.10
# 新增：配置终端为无缓冲模式
expect "Escape character is"
send "stty -icanon min 1 time 0\r"
after 30000
expect "login:"
send "admin\r"
expect "Password:"
after 1000
send "welcome123\r"
after 2000
expect { timeout { exit 1 } "MAIN" }
expect ">"
after 3000
send "mgmt\r"
expect { timeout { send_user "timed out, Bye "; exit 1 } "Protocol" }
send "translation\r"
expect "prefix"
send "\r\r"
send "$DOWN2"
send "$DOWN2"
send "$DOWN2"
send "$DOWN2"
send "326"
send "\x16"
# 新增：带超时和调试的正则匹配
expect -timeout 5000 -re {limit No. : (\d+)} {
    set lim_val $expect_out(1,string)
    set exp_out $expect_out(buffer)
} timeout {
    send_user "匹配超时！当前缓冲内容:\n$expect_out(buffer)\n"
    exit 1
}
set fp [open textdoc.txt a+]
puts $fp "total buffer is $exp_out"
close $fp
after 2000
exit

这样修改后，wish中的终端缓冲问题会被解决，正则匹配也能正常捕获到服务器返回的内容了。

内容的提问来源于stack exchange，提问作者hari prasad