Foro - Perl en Español

Buenas, mi consulta es la siguiente: estoy intentando manejar errores en Perl, pero me encuentro con un problema.

Todo lo que veo es que si encuentra el error, por ejemplo para en caso de error terminar la ejecución del programa.

Viendo el tutorial encuentro que puedo llamar a una función pero igualmente el final es salir del programa; si utilizo la función eval() tengo el mismo resultado.

¿Existe algún método que en vez de acabar con el proceso, por ejemplo, salte la ejecución de esa función, es decir, si hago trate el error pero solo salga de esa función?

Gracias de antemano por atender y responder mis dudas.

Bueno, si quieres salir de la función si no pudiste abrir un fichero, simplemente haz lo siguiente:

Un tema interesante, el de los errores. Se habló algo en la última YAPC::EU::2009. Incluso Larry Walll nos dió un divertido repaso sobre los mensajes de error de los sistemas de antaño.

Tienes algo de información sobre la captura de errores, en la documentación de eval().

Aquí tienes un ejemplo:
La salida es

El die() ha capturado el error, pero la aplicación sigue funcionando.
En caso de no poner die(), la salida hubiera sido esta, por acción del warn():
que es la descripción del error por haber intentado leer un fichero que aún no hemos abierto (línea 17).

Teniendo en cuenta que tanto open() como close() como cualquier otra operación de entrada y salida pueden provocar algún tipo de error, lo normal es usar el módulo Fatal, que permite elevar una excepción en caso de que alguna de las funciones indicadas devuelva un valor undef, indicación de que algo fue mal:
La salida es:
¡Boom!
Naturalmente, se puede capturar, con eval():
cuya salida es
Vamos, que Fatal solo nos abrevia el no tener que poner die() en todas las funciones, de esta manera:
ya que todas esas operaciones pueden fallar. Pero necesitamos seguir capturándolas para tratar los errores, algo que podemos hacer con eval() y con módulos como el Error, que remeda algunas de las funciones que vemos en otros lenguajes, como try() y catch().

En la última YAPC::EU::2009, Paul Fenwick nos recomendó usar su módulo autodie y autodie::exception (sí, el sombrero pirata lo llevó a la conferencia).

con lo que sale:

Este módulo da toda la función relativa al fallo que ha ocurrido. Y así puedes decidir qué hacer. Aunque...


(Paul nos dio otra conferencia sobre Perl/Klingon y el control de errores con autodie, vestido con su uniforme de la flota estelar )

Vale, eso es lo que necesitaba, me gusta el proverbio, en este caso la opción es continuar en fallo porque necesito monitorizar, y si existe algún error en alguna función no quiero que muera el proceso entero sino que marque el error, lo guarde y continúe con el resto de funciones; pero lo tendré en cuenta. Gracias por todo.