Foro - Perl en Español

Buenas tardes.

Respecto al tema, me pregunto si es posible ejecutar uno a uno cada comando, usando la estructura que me indicaste, salva anteriormente. Ahora, tratando de hacerlo así no me reconoce la siguiente sentencia:


Estoy tratando con -t de hacer uso de un terminal para que funcione, pero me genera el error que relaciono a continuación:

Can't call method "error" on an undefined value at /usr/local/sc/libreria/misLibs.pl line 359 (que para mi caso la línea que indica el bash coincide con el if() citado anteriormente).

Agradezco me eches una mano de cómo puedo hacer uso del parámetro -t.



Jero2528
Colombia

Hola, explorer/salva.

Quise resolverlo usando el parámetro -t pensando en que éste haría uso de un terminal para ejecutar comandos sobre el equipo remoto. Pero pasadas varias pruebas no funciona aún. ¿Podrían indicarme, por favor, cómo puedo hacer que me funcionen comandos usando SSH, bien sea OpenSSH o con Expect, o combinados mejor aún, con tal de que no requiera que le realice mucho cambios a una estructura como la que tengo a continuación?


Es un poco extenso , y este es tan solo una parte del script y uno de los aproximadamente 70 scripts que requieren este cambio

Muchas gracias...

Sí, pero no funciona lo de OpenSSH; me genera el error que he comentado antes

jero2528 escribiste:Hola salva, muchas gracias, tenías razón, es por el tema de tener activo el debug, aun así lo comenté en el código, luego lo ejecuté y realiza la tarea sin problemas. Me llamó la atención el mensaje a continuación:

Pseudo-terminal will not be allocated because stdin is not a terminal.
Connection to 10.11.112.3 closed by remote host.
muxclient: master returned too much data (8 > 4)

Luego de que salió esa respuesta ejecuta normalmente los comandos. ¿Por qué sucede eso? ¿Debe preocuparme? ¿Es posible que falle? Si cambio por este código a todos mis scripts y lo ejecuto sobre equipos Juniper, ¿crees que funcionará?

Este es el código con el que probé:

Sintáxis: [ Descargar ] [ Ocultar ]

Sintáxis: [ Descargar ] [ Mostrar ]

Using perl Syntax Highlighting

1. #!/usr/bin/perl
2. #####################################################################################
3. # Jero2528
4. # Marzo 2014
5. #####################################################################################
6.  
7. use Net::OpenSSH;
8. require '/usr/local/procedimientos.pl';
9.  
10. #$Net::OpenSSH::debug = -1; # activar todo el sistema de trazado
11.  
12. my $cmd = 'show version';
13. my $host = '10.11.112.3';
14. my $mensajeerror="";
15. my $salida;
16.  
17. @conn1 = conectar_ssh($host);
18.  
19. if (($conn1[0])) {
20.         $mensajeerror="Equipo=name, IP=$host, Descripcion=$conn1[0]\n<br>";
21.         print "$mensajeerror\n";
22. }else
23. {
24.         #@out=$conn1[1]->capture("enable\n");
25.         #@out=$conn1[1]->capture("show running-config");
26.         #@out=$conn1[1]->system("copy running-config tftp\n");
27.         #@out=$conn1[1]->capture_tunnel({stdin_data =>"200.58.9.10\n"},"$host",22);
28.         ### Los anteriores comentarios fueron mis intentos fallidos para lograrlo jejeje ###
29.         @out=$conn1[1]->capture({stdin_data =>"copy running-config tftp\n 10.11.25.135\nnombre_de_mifichero_de_confg\nquit\n"});
30.        
31.         foreach $line1 (@out) {
32.                 $salida .= "$line1\n";
33.     }
34.         print "----- $host -----\noutput:\n$salida]\nerror:\n$mensajeerror\n";
35. }
36.  

Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4

Solo que en el citado anteriormente me funcionaba para cuando quería realizar un solo comando en todo el script, en el anterior lo ejecuté y me genera el mismo error pero además no me ejecuta lo que requiero.