Falando em Switch, segue uma solução *elegante*<div><br></div><div><a href="http://blogs.perl.org/users/ovid/2010/10/perl-101-avoid-elsif.html">http://blogs.perl.org/users/ovid/2010/10/perl-101-avoid-elsif.html</a><br clear="all">
<br>[]s,<br><br><div>@_marcioferreira</div><div>Marcio Ferreira<br><br></div><div><span style="font-family:sans-serif;line-height:16px"><span style="font-size:x-small">"<a style="text-decoration:none"><font color="#000000">Perl</font></a> lives as the 'toolbox for Unix' "</span></span></div>
<br>
<br><br><div class="gmail_quote">Em 19 de outubro de 2010 18:20, breno <span dir="ltr"><<a href="mailto:breno@rio.pm.org">breno@rio.pm.org</a>></span> escreveu:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">
2010/10/19 Jonhnes Lopes <<a href="mailto:jonhnes@gmail.com">jonhnes@gmail.com</a>>:<br>
<div class="im">> Obrigado novamente pessoal além de aprender como sair do programa do jeito<br>
> que eu queria também ganhei uma lição de tratamento de erros.<br>
> Muito bom!<br>
><br>
<br>
</div>Mais uma pra vc:<br>
<div class="im"><br>
>> 2010/10/19 Jonhnes Lopes <<a href="mailto:jonhnes@gmail.com">jonhnes@gmail.com</a>><br>
</div><div class="im">>>> #/////Programa para testar meus conhecimentos em perl//////<br>
>>><br>
>>> use Switch;<br>
<br>
</div>Nunca, jamais, em hipótese alguma, use o módulo "Switch" em seus programas!<br>
<br>
O Switch é um módulo antigo e ultrapassado, feito com source filters e<br>
*cheio* de problemas óbvios e outros não tão óbvios assim, prontos<br>
para te morder de formas inesperadas e dolorosas. Veja as seções BUGS<br>
e LIMITATIONS da documentação oficial do próprio módulo<br>
(<a href="http://search.cpan.org/perldoc?Switch#BUGS" target="_blank">http://search.cpan.org/perldoc?Switch#BUGS</a>) e a fila de bugs<br>
(<a href="https://rt.cpan.org/Public/Dist/Display.html?Name=Switch" target="_blank">https://rt.cpan.org/Public/Dist/Display.html?Name=Switch</a>) caso esteja<br>
minimamente curioso. Ou apenas aceite que é ruim, bobo, feio, chato,<br>
cara de melão, e ***NÃO USE***.<br>
<br>
NUNCA.<br>
<br>
Se realmente precisar usar uma estrutura estilo switch/case em Perl,<br>
use a construção given-when que é nativa desde o release 10 (que<br>
convenhamos, já tem quase 3 anos):<br>
<br>
------------------8<------------------<br>
use 5.10.0;<br>
<br>
given ( $variavel ) {<br>
when 'bla' {<br>
...<br>
}<br>
when 'ble' {<br>
...<br>
}<br>
when ( $_ < 100 ) {<br>
...<br>
}<br>
default {<br>
...<br>
}<br>
};<br>
------------------>8------------------<br>
<br>
"perldoc perlsyn" caso queira mais informações sobre o given-when.<br>
<br>
Bom estudo!<br>
<br>
[]s<br>
<font color="#888888"><br>
-b<br>
</font><div><div></div><div class="h5">_______________________________________________<br>
SaoPaulo-pm mailing list<br>
<a href="mailto:SaoPaulo-pm@pm.org">SaoPaulo-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a><br>
</div></div></blockquote></div><br></div>