Eu posso configurar uma conexão telnet no Perl sem problemas, e acabei de descobrir Maldições, e estou pensando se posso usar os dois juntos para raspar a saída da sessão de telnet.

Eu posso ver em uma linha, com base na coluna, o conteúdo do STDOUT usando o script simples abaixo:

use Curses;
my $win = new Curses;
$win->addstr(10, 10, 'foo');
$win->refresh;
my $thischar=$win->inch(10,10);
print "Char $thischar\n";

E usando o abaixo, posso abrir uma conexão telnet e enviar \ receber comandos sem nenhum problema:

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");

... Mas o que eu realmente gostaria de fazer é obter a resposta do telnet (que incluirá os caracteres de controle do terminal) e, em seguida, pesquisar linha \ coluna usando maldições. Alguém sabe de uma maneira que eu possa conectar os dois juntos? Parece-me que maldições só podem operar em STDOUT