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">&quot;<a style="text-decoration:none"><font color="#000000">Perl</font></a> lives as the &#39;toolbox for Unix&#39; &quot;</span></span></div>

<br>
<br><br><div class="gmail_quote">Em 19 de outubro de 2010 18:20, breno <span dir="ltr">&lt;<a href="mailto:breno@rio.pm.org">breno@rio.pm.org</a>&gt;</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 &lt;<a href="mailto:jonhnes@gmail.com">jonhnes@gmail.com</a>&gt;:<br>
<div class="im">&gt; Obrigado novamente pessoal além de aprender como sair do programa do jeito<br>
&gt; que eu queria também ganhei uma lição de tratamento de erros.<br>
&gt; Muito bom!<br>
&gt;<br>
<br>
</div>Mais uma pra vc:<br>
<div class="im"><br>
&gt;&gt; 2010/10/19 Jonhnes Lopes &lt;<a href="mailto:jonhnes@gmail.com">jonhnes@gmail.com</a>&gt;<br>
</div><div class="im">&gt;&gt;&gt; #/////Programa para testar meus conhecimentos em perl//////<br>
&gt;&gt;&gt;<br>
&gt;&gt;&gt; use Switch;<br>
<br>
</div>Nunca, jamais, em hipótese alguma, use o módulo &quot;Switch&quot; 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&lt;------------------<br>
use 5.10.0;<br>
<br>
given ( $variavel )  {<br>
   when &#39;bla&#39; {<br>
        ...<br>
   }<br>
   when &#39;ble&#39; {<br>
        ...<br>
   }<br>
   when ( $_ &lt; 100 ) {<br>
        ...<br>
   }<br>
   default {<br>
        ...<br>
   }<br>
};<br>
------------------&gt;8------------------<br>
<br>
&quot;perldoc perlsyn&quot; 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>