Foro - Perl en Español

por **erjuak** » 2013-05-24 06:29 @312

Buenas.

Tengo un script que tiene que hacer dos conexiones sftp a dos servidores distintos.

Lo estoy haciendo con el módulo Net::SFTP::Foreign

Lo he hecho con las siguientes líneas:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

 my $sftp_rep = Net::SFTP::Foreign->new(host=>$host_rep, user=>$user_rep, password=>$passwd_rep, port=>$port_rep);
         $sftp_rep->die_on_error("unable to connect to remote host");
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Así es como lo tengo puesto inicialmente.

Entonces, inicialmente, si hay algún posible error en la conexión del ssh, con este código, el script lo que hace es salir del script. Entiendo que es por la orden de die().

Lo que a mi me interesa, es que cuando esto falle, no salga del script sino que siga ejecutando las siguientes ordenes o comandos, ya que mi script tiene una segunda parte de código que quiero ejecutar, si la conexión por ssh se hace o no.

Estoy mirando en CPAN y la verdad que no lo tengo muy claro cómo hacerlo. ¿Alguien me podría dar alguna idea?

Muchas Gracias.

Manejo de errores

La mayor parte de los métodos disponibles de este paquete devuelven undef en caso de fallo, y un valor verdadero o los datos solicitados, en caso de éxito. Se debe usar explícitamente $sftp->error para comprobar errores después de cada llamada a los métodos. Por ejemplo:
Sintáxis: [ Descargar ] [ Ocultar ]
Sintáxis: [ Descargar ] [ Mostrar ]
Using perl Syntax Highlighting
$sftp = Net::SFTP::Foreign->new($servidor);
$sftp->error and die "incapaz de conectar al servidor remoto: " . $sftp->error
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4

Así que solo necesitas hacer eso: comprobar el resultado, y decidir qué hacer en cada caso.

El método die_on_error() hace lo mismo que la línea anterior, así que, efectivamente, hace un die() en caso de producirse un error.

Más información en la sección Error handling de Net::SFTP::Foreign.

por **erjuak** » 2013-05-27 11:28 @519

¡Hola, explorer!

Muchas gracias por la respuesta, es justamente lo que necesitaba.
Incluso puedo meter más código de forma que podría tratarlo:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use strict;
use Net::SFTP::Foreign;
use File::Copy;
 
sub conecta ()
{
my $prueba = 1;
my $sftp_rep = Net::SFTP::Foreign->new(host=>$host_rep, user=>$user_rep, password=>$passwd_rep, port=>$port_rep);
$sftp_rep->error and $prueba = 0 . $sftp_rep->error;
return ($prueba);
}
 
my $conectar=&conecta;
 
if ($conectar == 1){
     print "se ha conectado\n";
         }
else{
     print "NO se ha conectado\n";
         }
 
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

¡¡Muchas gracias de nuevo, explorer!!

Foro - Perl en Español

Gestionar conexiones por sftp erroneas

Gestionar conexiones por sftp erroneas

Publicidad

Re: Gestionar conexiones por sftp erroneas

Re: Gestionar conexiones por sftp erroneas

¿Quién está conectado?