dvinciguerra
(usa Debian)
Enviado em 23/04/2012 - 09:51h
Use o comando exit (http://perldoc.perl.org/functions/exit.html) ou o die (http://perldoc.perl.org/functions/die.html) em caso de erro.
Pode também tentar adaptar uma tratativa de erros com:
eval{
# código perl aqui
};
if( $@ ){
# trata o erro ou exibe a mensagem
die "Error: $@ ";
}
ou usar um modulo como o Try::Tiny (http://search.cpan.org/~doy/Try-Tiny-0.11/lib/Try/Tiny.pm)
# handle errors with a catch handler
try {
die "foo";
} catch {
warn "caught error: $_"; # not $@
};
Abraço
