perl - 如何禁用通过 Expect.pm 接收的控制字符

Question

我正在使用 Expect.pm 通过 SSH 连接到远程服务器。连接后，我通过 Expect 对象发送命令，并从远程服务器接收带有控制字符的答案：

spawn id(22): Does `show \r\033[Kadmin@host> show log \r\033[Kadmin@host> show log config \r\033[Kadmin@host> show log config result \r\033[Kadmin@host> show log config result equal \r\033[Kadmin@host> show log config result equal succeeded\r\n\033[?1h\033=\033[@959;1H\033[K'

所有这些控制字符都弄乱了我用 Expect 完成的模式匹配。我的问题是：如何避免在返回字符中看到这些控制字符？

Answer 1

似乎某些控制字符来自 PS1 环境变量，请在建立 ssh 会话后尝试将其设置为不同的值。在 bash 中，这将是：

export PS1="dummy_prompt> "

使用以下命令检查您拥有什么样的环境也是值得的

env