如何在 Perl 中从 telnet 屏幕抓取输出？答案

【问题标题】：How can I screen-scrape output from telnet in Perl?如何在 Perl 中从 telnet 屏幕抓取输出？
【发布时间】：2011-01-15 05:23:48
【问题描述】：

我可以在 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 上运行

【问题讨论】：

这个“刮”的本质是什么？由于您最初认为可以使用诅咒，因此您似乎正在寻找实时响应屏幕上数据的方法。您的程序在 telnet 会话中的未来操作是否由过去的响应决定？或者您只是想在结束会话后检查/分析会话日志？感兴趣的数据真的依赖于行/列吗？这是真正的应用程序还是学校练习？

标签： perl telnet curses

【解决方案1】：

我也会投票给 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];
}

【讨论】：

【解决方案2】：

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

【讨论】：

【解决方案3】：

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

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

【讨论】：

太棒了！非常感谢您的帮助，非常感谢:)

【解决方案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;
                }
        ]
);

【讨论】：

谢谢 Vinko.. Expect 的问题是它不能插入终端控制字符，所以它往往会被作为 telnet 数据一部分返回的所有屏幕定位混淆跨度>
@Mike：expect 已经被用来玩许多不同的 roguelike 游戏——它不应该被 ncurses 弄糊涂。

【解决方案5】：

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

一个更好的选择是终端模拟器，它的 API 能够执行这种类型的屏幕抓取。我不知道是否有任何开源终端模拟器可以做到这一点，但肯定有可用的商业终端模拟器。

【讨论】：

【解决方案6】：

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

来自 Solaris 手册页：

说明

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

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

【讨论】：