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

Question

使用Perl模块Net :: Telnet,如何将箭头键发送到telnet会话,以便与用户按下键盘上的向下键相同？

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);

此VT102代码列表表示光标键代码如下:

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".这些代码确实是相同的-尝试运行的Bourne shell sh没有的ReadLine支持,并击中了上/下箭头,你会看到类似这样的^[[A地方^[代表转义字符.