perl - 如何使用 Net::Telnet 模块在 Perl 中发送箭头键？

Question

使用 Perl 模块 Net::Telnet，如何向 telnet session 发送箭头键，使其与用户按下键盘上的向下键一样？

use Net::Telnet;
my $t = new Net::Telnet();
my $down_key=?; #How do you send a down key in a telnet session?
t->print($down_key);

这list of VT102 codes表示光标键码如下:

Up:    Esc [   A
       033 133 101
Down:  Esc [   B
       033 133 102
Right: Esc [   C
       033 133 103
Left:  Esc [   D
       033 133 104

我如何在 telnet 中发送这些信息？这些代码是否与在键盘上按下的箭头键相同？

Answer 1

尝试打印 "\e[B"。这些代码确实是相同的 - 尝试在没有 readline 支持的情况下运行 Bourne shell sh 并点击向上/向下箭头，你会看到类似 ^[[A 的内容 ^[代表转义字符。