如何在Perl中屏蔽来自telnet的输出？

Question

我可以在Perl中设置一个telnet连接没有问题,刚刚发现了Curses,我想知道我是否可以一起使用这两个连接来从telnet会话中获取输出.

我可以使用下面的简单脚本在行,列的基础上查看STDOUT的内容:

use Curses;
my $win = new Curses;
$win->addstr(10, 10, 'foo');
$win->refresh;
my $thischar=$win->inch(10,10);
print "Char $thischar\n";

使用下面我可以打开一个telnet连接并发送\ receive命令没有问题:

use net::telnet;
my $telnet = new Net::Telnet (Timeout => 9999,);
$telnet->open($ipaddress) or die "telnet open failed\n";
$telnet->login($user,$pass);
my $output = $telnet->cmd("command string");

...但我真正想做的是获取telnet响应(包括终端控制字符),然后使用curses在行/列上搜索.有谁知道我可以将两者连接在一起的方式？在我看来,curses只能在STDOUT上运行

Answer 1

诅咒恰恰相反.它是一个C库,用于优化从程序写入终端的屏幕更新,最初设计用于慢速串行连接.它无法从一系列控制字符中删除布局.

更好的选择是终端仿真器,它具有能够进行此类屏幕抓取的API.我不确定是否有任何开源终端模拟器可以做到这一点,但肯定有商业可用的.

Answer 2

如果您纯粹与纯文本命令和响应交互，则可以使用Expect编写脚本，否则，您可以使用Term::VT102，它可以让您进行屏幕抓取（读取屏幕的特定部分、发送文本、处理事件）滚动、光标移动、屏幕内容更改等）使用VT102转义序列进行屏幕控制的应用程序（例如，使用curses库的应用程序）。