Foro - Perl en Español

por **jmdelcampo** » 2016-04-15 06:06 @296

Hola.

Tengo un pequeño script donde pretendo obtener la salida de un comando para después mostrarla por pantalla.
El script es muy sencillo.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$t = new Net::Telnet (Timeout => 10,Port => 23, Prompt => '/.*#/' );
$t->output_log('debug.log');
$t->open("$item[1]");
$t->max_buffer_length( 104857600 );
$t->waitfor(String     =>       "Username:");
$t->print("$item[2]");
$t->waitfor(String      =>      "Password:");
$t->print("$item[3]");
$t->print("terminal Length 0");
@output = $t->cmd("$item[4]");
$t->print("      ");
$t->print("logout");
$t->close;
 
foreach (@output) {
print $_;
}
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

La salida que obtengo es

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

[usuario@miservidor]$ perl ShowPort.pl

CCCCC

===============================================================

===============================================================

                        Red de Datos Grupo XXX

                        XXX Group Data Network

        Esta siendo registrado y monitorizado todo lo que haga.

                El uso indebido tiene sancion Penal.

        This access is being registered and monitored.

            Bad use will lead to criminal prosecution.

===============================================================

===============================================================Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

que es el mismo mensaje que obtengo justo después de registrarme satisfactoriamente.

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

Username: ing_cl

Password:

CCCCC

===============================================================

===============================================================

                        Red de Datos Grupo XXX

                        XXX Group Data Network

        Esta siendo registrado y monitorizado todo lo que haga.

                El uso indebido tiene sancion Penal.

        This access is being registered and monitored.

            Bad use will lead to criminal prosecution.

===============================================================

===============================================================

AL1-CR-2#Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

¿Podríais, por favor, ayudarme a ver dónde está el error?

Gracias.

$t = new Net::Telnet (Timeout => 10,Port => 23, Prompt => '/.*#/' );
$t->output_log('debug.log');
$t->open("$item[1]");
$t->max_buffer_length( 104857600 );
$t->waitfor(String     =>       "Username:");
$t->print("$item[2]");
$t->waitfor(String      =>      "Password:");
$t->print("$item[3]");
$t->print("terminal Length 0");
## Aqui quieres capturar la salida
#$t->cmd("$item[4]"); si este no te funcionó prueba poner un salto de Linea.
$t->print("$item[4]\n");
# Aqui es necesario conocer que salida necesitas para que pongas la REGEXP correspondiente.
my ($antes, $despues) = $t->waitfor('/#/') or die "No encontre salida\n";
# Luego verificas que captura como salida.
print "Salida: $antes -*-*-*- $despues\n";
$t->print("      ");
$t->print("logout");
$t->close;
 
# Luego entonces ya no necesitas hacer el for para recorrer la salida
#foreach (@output) {
#print $_;
#}
 
#Podrías validar con una regexp la salida.
if($despues=~/loquenecesito ver/){
   print "Lo que necesito existe en la variable $despues.";
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Espero que te sirva, así me ha tocado usarlo en varias ocasiones, ya estoy familiarizado con ese módulo, lo uso casi que a diario y hay varias situaciones con respecto a lo que se puede hacer con él.

:mrgreen:

Foro - Perl en Español

Obtener salida comando Net::Telnet

Obtener salida comando Net::Telnet

Publicidad

Re: Obtener salida comando Net::Telnet

¿Quién está conectado?