<span style="font-family: courier new,monospace;">Não resisti, que tal um golfe ?</span><br style="font-family: courier new,monospace;"><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">
$q=$v=~y/a//;</span><br style="font-family: courier new,monospace;"><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">... e tem outra coisa, o 'tr' ou 'y' é mais rápido ...
</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;"><code><br>use Benchmark qw(:all) ;<br>my $var = 'parlamentarismo';<br><br>cmpthese(-1, {<br> 'array' => '@{[$var =~ /a/g]}',
<br> 'while' => 'while ( $var =~ /a/g ) { $qtd02++}',<br> 'tr' => '$var =~ y/a/A/'<br> });<br style="font-family: courier new,monospace;"></span>
<span style="font-family: courier new,monospace;"></code><br><br style="font-family: courier new,monospace;"></span><span style="font-family: courier new,monospace;"><resultado></span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;"> Rate array while tr</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">array 1090778/s -- -54% -71%
</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">while 2388776/s 119% -- -37%</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">
tr 3781862/s 247% 58% --</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;"></resultado><br><br style="font-family: courier new,monospace;"></span><div class="gmail_quote">
On Nov 20, 2007 3:15 PM, Adriano Ferreira <<a href="mailto:a.r.ferreira@gmail.com">a.r.ferreira@gmail.com</a>> wrote:<br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
<div><div></div><div class="Wj3C7c">On Nov 20, 2007 9:35 AM, <<a href="mailto:fernandolouis@terra.com.br">fernandolouis@terra.com.br</a>> wrote:<br>><br>><br>> Dae Pessoal... olha só...<br>><br>> $variavel = "casa";
<br>> Como faço pra contar quantos "a" tem em $variavel?<br>> Tentei o seguinte, mas não fucionou:<br>> $qtd = $variavel =~ m /a/g;<br><br></div></div>Se o que você quer é apenas contar caracteres, use tr//
<br><br>$qtd = $variavel =~ tr/a/a/;<br><br>Leia sobre o operator em "perldoc perlop" e sobre este uso em particular.<br><br>><br>> []s,<br>> Fernando<br><div><div></div><div class="Wj3C7c">> _______________________________________________
<br>> Cascavel-pm mailing list<br>> <a href="mailto:Cascavel-pm@pm.org">Cascavel-pm@pm.org</a><br>> <a href="http://mail.pm.org/mailman/listinfo/cascavel-pm" target="_blank">http://mail.pm.org/mailman/listinfo/cascavel-pm
</a><br>><br>_______________________________________________<br>Cascavel-pm mailing list<br><a href="mailto:Cascavel-pm@pm.org">Cascavel-pm@pm.org</a><br><a href="http://mail.pm.org/mailman/listinfo/cascavel-pm" target="_blank">
http://mail.pm.org/mailman/listinfo/cascavel-pm</a><br></div></div></blockquote></div><br><br clear="all"><br>-- <br>"o animal satisfeito dorme". - Guimarães Rosa