<pre>Agora teremos SWITCH sem importação de classe.<br></pre><br><pre>given ($foo) {<br>        when (/^abc/) { $abc = 1; }<br>        when (/^def/) { $def = 1; }<br>        when (/^xyz/) { $xyz = 1; }<br>        default { $nothing = 1; }
<br>    }</pre><br><br>---------- Forwarded message ----------<br><span class="gmail_quote">From: <b class="gmail_sendername">Lucas Mateus</b> &lt;<a href="mailto:lucasmateus.oliveira@gmail.com">lucasmateus.oliveira@gmail.com
</a>&gt;<br>Date: 19/11/2007 11:29<br>Subject: Novidade Perl 5.10<br>To: <a href="mailto:saopaulo-pm@mail.pm.org">saopaulo-pm@mail.pm.org</a><br><br></span>Entre as novidades do Perl 5.10 (cujo release candidate 1 chegou ao
<br>CPAN neste sábado -<br><a href="http://search.cpan.org/%7Ergarcia/perl-5.10.0-RC1/" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">
http://search.cpan.org/~rgarcia/perl-5.10.0-RC1/</a>), temos um novo<br>operador. É o operador &#39;//&#39; conhecido como operador &#39;default&#39; ou<br>&#39;defined-or&#39;.<br><br>O propósito deste operador é muito similar ao operador &#39;||&#39; (que
<br>corresponde a um OU) com algumas diferenças sutis e úteis.<br><br>O operador &#39;||&#39; é avaliado assim<br><br>exp1 || exp2 = exp1, &nbsp; &nbsp;se o resultado da exp1 é verdadeiro<br>exp1 || exp2 = exp2, &nbsp; &nbsp;caso contrário<br>

<br>Como este operador existe há muito tempo no Perl é muito comum que ele<br>seja usado quando é desejável que uma expressão tenha um certo valor<br>(ou &#39;default&#39;) se ele não for especificado explicitamente.<br>
<br>
Por exemplo,<br><br>sub rule {<br> &nbsp; &nbsp; &nbsp; my $n = $_[0];<br> &nbsp; &nbsp; &nbsp; my $char = $_[1] || &#39;-&#39;;<br> &nbsp; &nbsp; &nbsp; return $char x $n;<br>}<br><br>constrói uma régua de $n caracteres com o caracter especificado ou &#39;-&#39;.<br>

<br>Assim,<br><br>rule(3) &nbsp; &nbsp; &nbsp;retorna &nbsp; &nbsp; &nbsp;&#39;---&#39;<br>rule(4,&#39;+&#39;) &nbsp;retorna &nbsp; &nbsp; &#39;++++&#39;<br><br>No entanto,<br><br>rule(5, 0) &nbsp; &nbsp;retorna &nbsp; &#39;-----&#39;<br><br>porque 0 é *falso* (assim como os outros valores de falso: &#39;&#39; - o
<br>string vazio, 0 - zero inteiro, 0.0 - zero em ponto flutuante, undef).<br><br>Antes, a solução era trocar a expressão simples &quot; $_[1] || &#39;-&#39; &quot; por<br>um mais complicada e precisa:<br><br> &nbsp; &nbsp;my $char = defined $_[1] ? $_[1] || &#39;-&#39;; # atenção ao jogo para
<br>evitar os efeitos colaterais do shift<br><br>Mas a semântica do operador &#39;//&#39; é exatamente esta:<br><br>exp1 || exp2 = exp1, &nbsp; &nbsp;se o resultado da exp1 é definido (não é &#39;undef&#39;)<br>exp1 || exp2 = exp2, &nbsp; &nbsp;caso contrário
<br><br>Então a expressão corrigida fica mais concisa e elegante:<br><br> &nbsp; &nbsp;my $char = $_[1] // &#39;-&#39;;<br><br>Assim, para inúmeras aplicações que antes empregariam o &#39;||&#39; com o<br>temor de que outros valores de falso levassem a surpresas, a melhor
<br>alternativa é agora o uso do &#39;defined-or&#39;.<br>