Hola amigos, gusto en saludarlos. Tengo un problema con un
script ya que luego de ingresar a un equipo y autenticarme de manera correcta me lleva a un menú en el cual debo enviarle una letra, 'q', por ejemplo, seguido de un
enter para entrar a otro menú y así sucesivamente. El problema es que al enviarle la letra, de nuevo 'q' por ejemplo, no entra al menú que necesito, les dejo el
script en espera de su valiosa ayuda.
Using perl Syntax Highlighting
#!/usr/bin/perl
use Net::Telnet();
use CGI qw(:standard);
use strict;
use warnings;
my $comm1 = 'q';
my $comm2 = 'y';
my $t = new Net::Telnet (Prompt=>'/:/', Timeout => 30, Dump_Log=>'log.txt', Errmode=>'return');
$t->open($_) or next sigue;
$t-> cmd ($username);
$t -> waitfor (/:/);
$t-> cmd ($password);
$t -> waitfor (/:/);
$t -> cmd ("$comm1 \n");
$t -> waitfor (/]/);
$t -> cmd ($comm2);
Coloreado en 0.003 segundos, usando
GeSHi 1.0.8.4
Este es el menú del equipo al que ingreso
Using text Syntax Highlighting
If you need help later, type ?.
COMMAND (M/R/S/X/Q):
Coloreado en 0.000 segundos, usando
GeSHi 1.0.8.4