<HTML><BODY style="word-wrap: break-word; -khtml-nbsp-mode: space; -khtml-line-break: after-white-space; "><BR><DIV><DIV>On May 28, 2007, at 11:31 AM, Nelson Ferraz wrote:</DIV><BR class="Apple-interchange-newline"><BLOCKQUOTE type="cite"><P style="margin: 0.0px 0.0px 0.0px 0.0px"><FONT face="Monaco" size="3" style="font: 12.0px Monaco">Não ajuda em termos de performance, e prejudica em termos de <SPAN class="Apple-converted-space"> </SPAN></FONT></P> <P style="margin: 0.0px 0.0px 0.0px 0.0px"><FONT face="Monaco" size="3" style="font: 12.0px Monaco">organização.</FONT></P> </BLOCKQUOTE></DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV>Outro ponto importante é a introdução de bugs chatos de prever. Na prática, declarar uma variável em um escopo local tem a mesma funcionalidade que:</DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV>my $var;</DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV>for (1..1000) {</DIV><DIV> $var = undef;</DIV><DIV> # do some nasty computation with $var here.</DIV><DIV>}</DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV>Em relação ao escopo, aproveite a funcionalidade que o Perl tem ;-)</DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV>Abraço!</DIV><BR><DIV> <SPAN class="Apple-style-span" style="border-collapse: separate; border-spacing: 0px 0px; color: rgb(0, 0, 0); font-family: Lucida Grande; font-size: 12px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; text-align: auto; -khtml-text-decorations-in-effect: none; text-indent: 0px; -apple-text-size-adjust: auto; text-transform: none; orphans: 2; white-space: normal; widows: 2; word-spacing: 0px; "><DIV>--</DIV><DIV>Igor Sutton</DIV><DIV><A href="mailto:igor.sutton@gmail.com">igor.sutton@gmail.com</A></DIV><DIV><BR class="khtml-block-placeholder"></DIV><BR class="Apple-interchange-newline"></SPAN> </DIV><BR></BODY></HTML>