如何使用Perl的Net :: Telnet发送TAB？

Question

我正在使用Perl的Net::Telnet模块来访问通过telnet提供的应用程序。

我正在使用$telnet->waitfor()和$telnet->print()方法来确定收到的表单并提交相应的数据。其中一个表单有两个选项 - “查找”和“取消”。

在终端中，我可以点击TAB选择“取消”和ENTER。但在脚本中，发送TAB对我不起作用，即：

$telnet->print('\t')

或

$telnet->print("\t")

有谁知道如何解决这个问题？

Answer 1

要发送标签，您需要发送代表标签的实际位。单引号版本'\t'不会这样做。要将\t从其逻辑形式转换为正确的位表示，您需要双引号插值。

Answer 2

实际上$ telnet-＆gt; print（“\ t”）正在运行。