Foro - Perl en Español

Buenas tardes:

Tengo un script en Perl que hace una conexión por ftp y éste después de hacer una serie de acciones, sube un fichero a un servidor ftp.

Si provoco que este script falle, es decir, pongo en la programación, un error en la dirección IP del servidor o, también puede ser que el servidor ftp en un momento dado, esté caído.

Al lanzarse el script, se genera un mensaje de error, pero este mensaje sale por la salida de error estándar de Unix "2>", es decir:

/home/juan/scripts/ftp.pl
Can't call method "login" without a package or object reference at /home/juan/scriptsftp.pl line 103.

Mi pregunta es:

¿Hay alguna forma en que pueda procesar este mensaje dentro del código de Perl, que no sea haciendo una redirección a la hora de lanzar el script?

Vamos, que me gustaría redirigir este mensaje a alguna variable de forma que pueda después pintar un archivo con este mensaje.

¿Alguien me podría dar una idea?

¡Muchas gracias!

Un saludo

Los mensajes de error salen a causa de la ejecución de un die() o de un carp(). Lo que puedes hacer es que no ocurra ese die().

Quiero decir, que si a la hora de crear el new() del objeto Net::FTP, nos devuelve un valor undef, en lugar de hacer un die(), podemos hacer un print() para informar al usuario, y luego terminar, o volver a intentarlo.

Pero hay otras situaciones en que eso no podemos controlarlo, por ejemplo cuando ese die() ocurre fuera de nuestro código (dentro de un módulo o de otro programa).

En esos casos, lo que se suele hacer es lo que se hace en otros lenguajes: rodeamos la(s) línea(s) peligrosas con una estructura que capture el error, y de esa forma, nuestro programa no se muere, y tiene la oportunidad de tratar el error.

Eso en Perl se hace con la función eval(). También puedes usar Try::Tiny o TryCatch (hay diferencias entre los dos en cuanto al tratamiento de los return).

Comentarios sobre Try::Tiny, discusión sobre el tratamiento de errores, con ejemplos de eval() y los otros módulos.

Más información sobre eval() en perldoc -f eval

Puedes usar también el log handler...


con el try es bueno para que guardes en un fichero los mensajes de error

Muchas gracias por la información recibida.
Al final, lo solucione programando los scripts en el crontab del servidor y redirigiendo la salida de error a un fichero de log.
Me dieron por bueno esa solución.

Muchas Gracias