Net::Telnet

Foros de discusión -> Módulos

Mar Mar 11, 2008 10:22 am

flexjax
Perlero Nuevo

Registrado: 11 Mar 2008
Mensajes: 4

Net::Telnet

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

Perl:

$sesion->print("display current-configuration");
@ot=$sesion->waitfor(String=>'/^return/');
print @ot;

eso no me resulta...

Perl:

@out=$sesion->print("display current-configuration");
print @out;

Perl:

print $sesion->print("display current-configuration");

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

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

Gracias

Mar Mar 11, 2008 11:09 am

explorer
Moderador

Registrado: 24 Jul 2005
Mensajes: 4092
Ubicación: Valladolid, España



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.

Mar Mar 11, 2008 11:55 am

flexjax
Perlero Nuevo

Registrado: 11 Mar 2008
Mensajes: 4



¡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...

Mar Mar 11, 2008 1:00 pm

flexjax
Perlero Nuevo

Registrado: 11 Mar 2008
Mensajes: 4

Hola de nuevo, volví a lo mismo Crying or Very sad

Perl:

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;

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

Mar Mar 11, 2008 1:47 pm

explorer
Moderador

Registrado: 24 Jul 2005
Mensajes: 4092
Ubicación: Valladolid, España

Prueba a cambiar

Perl:

@out=$t->print("display current-configuration");

por

Perl:

@out = $t->cmd("display current-configuration");

Mar Mar 11, 2008 2:19 pm

flexjax
Perlero Nuevo

Registrado: 11 Mar 2008
Mensajes: 4

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

Perl:

t->login('pass','pass');

logea bien por el archivo output que tengo:

Código:

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.

Mie Abr 02, 2008 2:30 pm

explorer
Moderador

Registrado: 24 Jul 2005
Mensajes: 4092
Ubicación: Valladolid, España



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

	Foros de discusión -> Módulos	Todas las horas son GMT - 6 Horas
Página 1 de 1