我可以轻松地在Perl中建立telnet连接,并且刚刚发现了Curses,想知道我是否可以将两者结合起来从telnet会话中抓取输出。
我可以使用以下简单脚本按行列方式查看STDOUT的内容:
我可以使用以下简单脚本按行列方式查看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连接并发送/接收命令:
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上操作。