<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content="text/html; charset=iso-8859-1" http-equiv=Content-Type>
<META name=GENERATOR content="MSHTML 8.00.6001.18702">
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff>
<DIV><FONT size=2 face=Arial>Ola Marcio.</FONT></DIV>
<DIV><FONT size=2 face=Arial></FONT> </DIV>
<DIV><FONT size=2 face=Arial>Eu faço assim para ver erros no banco de
dados</FONT></DIV>
<DIV><FONT size=2 face=Arial></FONT> </DIV>
<DIV><FONT size=2 face=Arial>comando</FONT></DIV>
<DIV><FONT size=2 face=Arial>.....</FONT></DIV>
<DIV><FONT size=2 face=Arial>$sth->execute || die $DBI::errstr</FONT></DIV>
<DIV><FONT size=2 face=Arial>....</FONT></DIV>
<DIV><FONT size=2 face=Arial></FONT> </DIV>
<DIV><FONT size=2 face=Arial>Se estiver em web utilio o modulo "CGI::Carp
qw(fatalsToBrowser warningsToBrowser)" este serve para mandar os erros na
tela facilita bastante:-)</FONT></DIV>
<DIV><FONT size=2 face=Arial></FONT> </DIV>
<DIV><FONT size=2 face=Arial></FONT> </DIV>
<DIV><FONT size=2 face=Arial></FONT> </DIV>
<DIV><FONT size=2 face=Arial></FONT> </DIV>
<DIV>Ricardo Stock<BR><A
href="http://www.stocksistemas.com.br">www.stocksistemas.com.br</A></DIV>
<BLOCKQUOTE
style="BORDER-LEFT: #000000 2px solid; PADDING-LEFT: 5px; PADDING-RIGHT: 0px; MARGIN-LEFT: 5px; MARGIN-RIGHT: 0px">
<DIV style="FONT: 10pt arial">----- Original Message ----- </DIV>
<DIV
style="FONT: 10pt arial; BACKGROUND: #e4e4e4; font-color: black"><B>From:</B>
<A title=marciorp@gmail.com href="mailto:marciorp@gmail.com">Marcio -
Google</A> </DIV>
<DIV style="FONT: 10pt arial"><B>To:</B> <A title=saopaulo-pm@mail.pm.org
href="mailto:saopaulo-pm@mail.pm.org">saopaulo-pm@mail.pm.org</A> </DIV>
<DIV style="FONT: 10pt arial"><B>Sent:</B> Wednesday, March 13, 2013 2:08
PM</DIV>
<DIV style="FONT: 10pt arial"><B>Subject:</B> [SP-pm] Tratamento de
erros</DIV>
<DIV><BR></DIV>Pessoal,
<DIV><BR></DIV>
<DIV> Aprendi em um tutorial a algum tempo fazer assim:</DIV>
<DIV>eval {</DIV>
<DIV># Códigos que podem dar erro</DIV>
<DIV>}</DIV>
<DIV>if ($@) {</DIV>
<DIV># Deu pau</DIV>
<DIV>}</DIV>
<DIV><BR></DIV>
<DIV> 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.</DIV>
<DIV><BR></DIV>
<DIV> 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.</DIV>
<DIV><BR></DIV>
<DIV> Como eu faço isso em Perl?</DIV>
<DIV><BR></DIV>
<DIV> 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.</DIV>
<DIV>
<DIV><BR></DIV>
<DIV> Obrigado pela paciência ...
:-)</DIV><BR>[...]'s<BR><BR>Marcio </DIV>
<P>
<HR>
<P></P>=begin disclaimer<BR> Sao Paulo Perl Mongers:
http://sao-paulo.pm.org/<BR> SaoPaulo-pm mailing list:
SaoPaulo-pm@pm.org<BR> L<http://mail.pm.org/mailman/listinfo/saopaulo-pm><BR>=end
disclaimer<BR></BLOCKQUOTE></BODY></HTML>