Foro - Perl en Español

por **flexjax** » 2008-03-11 11:22 @515

Estoy haciendo una conexión con un equipo Huawei, y quiero salvar la configuración del equipo.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$sesion->print("display current-configuration");
@ot=$sesion->waitfor(String=>'/^return/');
print@ot;Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

eso no me resulta...

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

@out=$sesion->print("display current-configuration");
print@out;Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

print$sesion->print("display current-configuration");Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

He hecho muchas pruebas y en la mayoría de ellas solo me imprime "1".

Ojalá algún comentario, me ayudaría muchísimo

Gracias

Bienvenido a los foros de Perl en Español, flexjax.

En estos foros se ha hablado en algunas ocasiones de los equipos Huawei. Usa el sistema de búsqueda para encontrarlos. Busca también por Net::Telnet, con la opción de buscar por todas las palabras, activada.

Quien más te puede ayudar es el usuario TELCO71.

por **flexjax** » 2008-03-11 12:55 @580

¡Hola!
Sí, gracias, ya lo intenté... he hecho muchas pruebas; creo que más que Huawei el problema lo tengo yo con imprimir las lineas.

Ahora solucioné el problema que tenía con Net::Telnet::Cisco. Y tengo un programa que funcionaba bien usando ese módulo.

Puede que más tarde vuelva a molestar...

Gracias...

por **flexjax** » 2008-03-11 14:00 @625

Hola de nuevo, volví a lo mismo :cry:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use Net::Telnet::Cisco;
$t=Net::Telnet::Cisco->new(Host=>'40.40.40.40',

                         Input_log=>"input.log");
$user="password";
$t->print($user);
print"log.....ok\n";
$t->print($user);
print"pass ok\n";
print"sleep por 1\n";
sleep(1);
@out=$t->print("display current-configuration");
#print "display\n";
sleep(10);
print@out;Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Lo único que imprime es "1".
¿Alguna sugerencia...?

por **explorer** » 2008-03-11 14:47 @658

Prueba a cambiar

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

@out=$t->print("display current-configuration");Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

@out=$t->cmd("display current-configuration");Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **flexjax** » 2008-03-11 15:19 @680

Algo pasa con el cmd que me tira un error por time out, como que le faltara el enter...
Me doy cuenta con él el print me pasa lo mismo.
Lo que hizo bien fue el login con el comando

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

t->login('pass','pass');Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

logea bien por el archivo output que tengo:

Código: Seleccionar todo: Login authentication Username:pass Password: <Quidway>

Yo creo que falta agregar una especie de enter... porque muere por time out tanto con "cmd" como con "print".

Traté de ver cómo lo hace el comando "login" pero me perdí en el intento.

Gracias.

por **explorer** » 2008-04-02 15:30 @688

Da la sensación de que habría que definir en un punto la forma del prompt que el equipo devuelve.

Foro - Perl en Español

Net::Telnet

Net::Telnet

Publicidad

¿Quién está conectado?