SSH::Perl Para switches
Publicado: 2010-02-15 17:31 @771Hola.
Soy muy nuevo en Perl y hasta ahora lo estoy conociendo, estoy desarrollando un programa que realice un backup en un switch 3Com.
Ya la conexión por SSH con el módulo SSH::Perl la logré y tanto en el switch como en el debug del programa se muestra que puedo ingresar.
El problema es que tan rápido como ingreso salgo del switch y estoy buscando una sentencia similar a waitfor() que utiliza la librería Telnet para en ese momento ingresar mi comando al switch. Este inconveniente ya lo verifiqué con W32Perl, SSH2 y OpenSSH; mi código es el siguiente.
Muchísimas gracias por sus sugerencias.
Soy muy nuevo en Perl y hasta ahora lo estoy conociendo, estoy desarrollando un programa que realice un backup en un switch 3Com.
Ya la conexión por SSH con el módulo SSH::Perl la logré y tanto en el switch como en el debug del programa se muestra que puedo ingresar.
El problema es que tan rápido como ingreso salgo del switch y estoy buscando una sentencia similar a waitfor() que utiliza la librería Telnet para en ese momento ingresar mi comando al switch. Este inconveniente ya lo verifiqué con W32Perl, SSH2 y OpenSSH; mi código es el siguiente.
Using perl Syntax Highlighting
- use Mail::Sender;
- use Net::FTP;
- use Net::SSH::Perl;
- use Sys::Hostname;
- system("cls");
- $ssh = Net::SSH::Perl->new("IP del switch", debug => 1 );
- $ssh -> login ("user" , "pass", ); # Hasta aquí se ejecuta mi programa
- #A partir de acá al parecer no se ejecuta, o aquí de no ingresar el comando que deseo.
- $ssh -> sock ('/\>$/i');
- $ssh -> cmd ('tftp host put name.cfg archivo.txt');
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
Muchísimas gracias por sus sugerencias.