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

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< /a> 编写脚本，否则，您可以使用 Term ::VT102，它允许您使用 VT102 转义序列进行屏幕控制（例如，使用curses库的应用程序）。

Answer 3

您可能想要类似 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 4

您正在寻找 Term::VT102，它模拟 VT102 终端（将终端控制字符回到虚拟屏幕状态）。有一个示例显示如何在 Net::Telnet 中使用它="http://cpansearch.perl.org/src/AJWOOD/Term-VT102-0.91/VT102/examples/telnet-usage.pl" rel="nofollow noreferrer">VT102/examples/telnet-usage.pl （由于某种原因，示例目录位于 VT102 目录内）。

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

Answer 5

或者您可以使用 script 命令来实现此目的。

来自 Solaris 手册页：

描述

script实用程序记录所有打印的内容
在你的屏幕上。记录写入文件名。如果没有文件名
给定后，记录保存在文件 typescript...

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

Answer 6

我也会投票支持 Expect 答案。我必须从 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];
}