• Publicidad

Salida de comandos sin paginación (en Telnet)

¿Apenas comienzas con Perl? En este foro podrás encontrar y hacer preguntas básicas de Perl con respuestas aptas a tu nivel.

Salida de comandos sin paginación (en Telnet)

Notapor TELCO71 » 2007-10-30 14:18 @637

Estimado Explorer :) ,

Necesito, cuando ingreso a un router/switch desde el script de telnet y ejecuto algún comando que es extenso, obtener la salida completa de dichos comandos.

Puntualmente necesito que cuando aparece el siguiente string: " ---- More ---- " poder enviarme un backspace al equipo para que continúe con la salida del comando.

¿Cómo puedo realizar eso desde un script en Perl? :oops:

Saludos y gracias , :lol:

Telco
Avatar de Usuario
TELCO71
Perlero nuevo
Perlero nuevo
 
Mensajes: 48
Registrado: 2006-08-10 10:43 @488
Ubicación: Buenos Aires / Argentina

Publicidad

Notapor explorer » 2007-10-30 17:18 @762

A ver si este hilo te puede ayudar...
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14486
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

Notapor TELCO71 » 2007-10-30 23:52 @036

Estimado Explorer , :lol:

Estuve probando el tema del filtro pero no me sirve en mi caso. :oops:

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
       @salida = $sesion->cmd($tabla_comandos[$y]);
        $salida = join('',@salida);
        $salida =~ s/ ---- More ----\W+(?! )//g;
        print @salida;
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4


Digamos lo que yo necesito es que durante el proceso del telnet hacia el equipo se le envíe un " backspace " a la salida de los comandos que superen ciertas líneas y el equipo espere un " backspace " para seguir mostrando el resto de esas salidas .

El string es el siguiente " ---- More ---- " y el equipo para seguir avanzando con la salida de los comandos o configuración necesita que se presione la barra espaciadora para terminar con esas secuencias .

Digamos se necesitaría interactuar con el equipo durante la salida de esos comandos .

Saludos y muchas gracias , :D

Telco
Avatar de Usuario
TELCO71
Perlero nuevo
Perlero nuevo
 
Mensajes: 48
Registrado: 2006-08-10 10:43 @488
Ubicación: Buenos Aires / Argentina

Notapor TELCO71 » 2007-10-31 00:12 @050

Explorer , :lol:

Me imagino que necesito colocar algo como lo siguiente :

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
$sesion->waitfor (Match => '/---- More ----/');
$sesion->print(ENVIAR BACKSPACE);
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4


¿Qué te parece? ¿Cómo le envío el backspace al equipo? :oops:

Saludos y gracias ,:D
TELCO
Avatar de Usuario
TELCO71
Perlero nuevo
Perlero nuevo
 
Mensajes: 48
Registrado: 2006-08-10 10:43 @488
Ubicación: Buenos Aires / Argentina

Notapor explorer » 2007-10-31 07:01 @334

Prueba con "\b".

Pero me sigue extrañando que sea necesario usar esa tecla. ¿No funciona con otra, por ejemplo, el "\n"?
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14486
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

Notapor explorer » 2007-10-31 07:06 @337

Del Match, quita los '/'.
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14486
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

Notapor sanzcarlos » 2008-11-04 07:54 @370

Creo que es más fácil que todo eso.

¿Por qué no ejecutas el comando ter len 0? De esa manera no te pagina los resultados.

Saludos.
Carlos
sanzcarlos
Perlero nuevo
Perlero nuevo
 
Mensajes: 4
Registrado: 2008-09-30 05:37 @275


Volver a Básico

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 0 invitados

cron