Tcl 如何在行为之前调试预期_

我对TCL/expect比较陌生，主要是修改现有代码。

expect\u before

似乎没有达到我期望的效果（这很好），但我不知道如何调试它。 我已经使用了

-d

选项，现在正在使用

exp_internal -f "argh.log" 1

创建日志文件，但这对我没有帮助

expect_before -info

---

似乎很有用，但我无法获取/显示输出（我确实说过我是TCL新手）

使用

set

expect可以获取函数结果

set my_expect_before [expect_before -info -all]

将获取当前配置

---

使用

exp\u internal

也有助于查看表达式的计算方式，一旦您了解了输出-当您的expect\u之前未按预期设置时，这应该是显而易见的。

exp\u internal没有帮助-因为expect\u之前在我的设置和expect之间被取消。