Ola Marcio. Eu faço assim para ver erros no banco de dados
comando ..... $sth->execute || die $DBI::errstr .... Se estiver em web utilio o modulo "CGI::Carp qw(fatalsToBrowser warningsToBrowser)" este serve para mandar os erros na tela facilita bastante:-) Ricardo Stock www.stocksistemas.com.br ----- Original Message ----- From: Marcio - Google To: saopaulo...@mail.pm.org Sent: Wednesday, March 13, 2013 2:08 PM Subject: [SP-pm] Tratamento de erros Pessoal, Aprendi em um tutorial a algum tempo fazer assim: eval { # Códigos que podem dar erro } if ($@) { # Deu pau } Só que alguns erros, principalmente relacionados a bando de dados (DBI), mesmo ocorrendo no código dentro do eval abortam o programa. Tipo, tento inserir com chave duplicada, o erro aborta o programa. Eu precisava de algo como try/except/finally, onde não importa qual erro ocorre dentro do try, não aborta o programa e cai no except onde consigo saber qual erro e trata-lo de forma especifica ou genérica, e se não deu erro executa o código que está em finally. Como eu faço isso em Perl? Eu sei que são dúvidas bem elementares e alguns podem achar que eu to com preguiça de procurar na net. Não é isso, sempre procuro antes de perguntar. Mais como outro membro disse, em Perl há várias formas de fazer a mesma coisa. Então quando não acho, ou não entendo, ou acho várias formas, pergunto para tentar aprender a forma mais "elegante" e correta de fazer. Obrigado pela paciência ... :-) [...]'s Marcio ------------------------------------------------------------------------------ =begin disclaimer Sao Paulo Perl Mongers: http://sao-paulo.pm.org/ SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org L<http://mail.pm.org/mailman/listinfo/saopaulo-pm> =end disclaimer
=begin disclaimer Sao Paulo Perl Mongers: http://sao-paulo.pm.org/ SaoPaulo-pm mailing list: SaoPaulo-pm@pm.org L<http://mail.pm.org/mailman/listinfo/saopaulo-pm> =end disclaimer