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

之类的内容

use strict;
use warnings;

use Expect;

my $exp = Expect->spawn("telnet google.com 80");

$exp->expect(15, #timeout
        [
                qr/^Escape character.*$/,
                sub {
                        $exp->send("GET / HTTP/1.0\n\n");
                        exp_continue;
                }
        ]
);

Answer 3

您正在寻找Term::VT102，它模拟VT102终端（将终端控制字符转换回虚拟屏幕状态）。有一个示例显示如何在Net::Telnet中使用VT102/examples/telnet-usage.pl（示例目录由于某种原因在VT102目录中）。

我使用它已经有7年了（系统我自动切换到基于Web的界面），但它曾经工作过。

Answer 4

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

Answer 5

或者您可以使用脚本命令。

从Solaris手册页：

描述

script实用程序记录所有打印的内容   在你的屏幕上。该记录将写入 filename 。如果没有文件名   如果给出，记录将保存在文件 typescript ...
中
脚本命令分叉并创建一个   子壳，根据值   $ SHELL，并记录此文本   会话。脚本结束时   forked shell退出或何时退出   Control-d是键入的。

Answer 6

我也会投票给Expect答案。我不得不从gui'ish应用程序做类似的事情。绕过控制字符的技巧（尽管很乏味）是从返回的字符串中去除所有misc字符。这有点取决于屏幕刮擦最终会有多乱。

这是我在该脚本中的函数作为示例：

# Trim out the curses crap
sub trim {
    my @out = @_;
    for (@out) {
        s/\x1b7//g;
        s/\x1b8//g;
        s/\x1b//g;   # remove escapes
        s/\W\w\W//g;
        s/\[\d\d\;\d\dH//g;  # 
        s/\[\?25h//g;
        s/\[\?25l//g;
        s/\[\dm//g;
        s/qq//g;
        s/Recall//g;
        s/\357//g;
        s/[^0-9:a-zA-Z-\s,\"]/ /g;
        s/\s+/ /g;    # Extra spaces

    }
    return wantarray ? @out : $out[0];
}

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

6 个答案:

描述