Я могу установить соединение telnet в Perl без проблем, и только что обнаружил 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. Кто-нибудь знает, как я могу соединить два вместе? Мне кажется, что проклятия могут действовать только на STDOUT