8

我可以在 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 连接并毫无问题地发送 \ 接收命令：

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 上运行

4

6 回答 6

5

诅咒则相反。它是一个 C 库，用于优化从程序写入到终端的屏幕更新，最初设计用于在慢速串行连接上使用。它无法从一系列控制字符中抓取布局。

一个更好的选择是终端模拟器，它的 API 能够进行这种类型的屏幕抓取。在我的脑海中，我不确定是否有任何开源终端仿真器可以做到这一点，但肯定有可以使用的商业终端仿真器。

于 2010-02-10T11:25:52.927 回答
4

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

于 2010-02-10T18:01:25.753 回答
4

你可能想要像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;
                }
        ]
);
于 2010-02-10T10:58:54.237 回答
3

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

自从我使用它（我正在自动化的系统切换到基于 Web 的界面）以来已经有大约 7 年了，但它曾经可以工作。

于 2010-02-10T18:00:15.163 回答
1

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

从 Solaris 手册页：

描述

该script实用程序会记录屏幕上打印的所有内容。记录被写入filename。如果没有给出文件名，则记录保存在文件 typescript ...

该脚本命令根据 $SHELL 的值分叉并创建一个子 shell，并记录来自该会话的文本。当分叉的 shell 退出或键入 Control-d 时，脚本结束。

于 2010-02-10T11:07:42.210 回答
0

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

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

# 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];
}
于 2010-02-10T23:53:21.440 回答