<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 &#39;tr&#39; ou &#39;y&#39; é mais rápido ...
</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">&lt;code&gt;<br>use Benchmark qw(:all) ;<br>my $var&nbsp;&nbsp; = &#39;parlamentarismo&#39;;<br><br>cmpthese(-1, {<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &#39;array&#39; =&gt; &#39;@{[$var =~ /a/g]}&#39;,
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &#39;while&#39; =&gt; &#39;while ( $var =~ /a/g ) { $qtd02++}&#39;,<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &#39;tr&#39;&nbsp;&nbsp;&nbsp; =&gt; &#39;$var =~ y/a/A/&#39;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; });<br style="font-family: courier new,monospace;"></span>
<span style="font-family: courier new,monospace;">&lt;/code&gt;<br><br style="font-family: courier new,monospace;"></span><span style="font-family: courier new,monospace;">&lt;resultado&gt;</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Rate array while&nbsp;&nbsp;&nbsp; tr</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">array 1090778/s&nbsp;&nbsp;&nbsp; --&nbsp; -54%&nbsp; -71%
</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">while 2388776/s&nbsp; 119%&nbsp;&nbsp;&nbsp; --&nbsp; -37%</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">
tr&nbsp;&nbsp;&nbsp; 3781862/s&nbsp; 247%&nbsp;&nbsp; 58%&nbsp;&nbsp;&nbsp; --</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">&lt;/resultado&gt;<br><br style="font-family: courier new,monospace;"></span><div class="gmail_quote">
On Nov 20, 2007 3:15 PM, Adriano Ferreira &lt;<a href="mailto:a.r.ferreira@gmail.com">a.r.ferreira@gmail.com</a>&gt; 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, &nbsp;&lt;<a href="mailto:fernandolouis@terra.com.br">fernandolouis@terra.com.br</a>&gt; wrote:<br>&gt;<br>&gt;<br>&gt; Dae Pessoal... olha só...<br>&gt;<br>&gt; $variavel = &quot;casa&quot;;
<br>&gt; Como faço pra contar quantos &quot;a&quot; tem em $variavel?<br>&gt; Tentei o seguinte, mas não fucionou:<br>&gt; $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 &quot;perldoc perlop&quot; e sobre este uso em particular.<br><br>&gt;<br>&gt; []s,<br>&gt; Fernando<br><div><div></div><div class="Wj3C7c">&gt; _______________________________________________
<br>&gt; Cascavel-pm mailing list<br>&gt; <a href="mailto:Cascavel-pm@pm.org">Cascavel-pm@pm.org</a><br>&gt; <a href="http://mail.pm.org/mailman/listinfo/cascavel-pm" target="_blank">http://mail.pm.org/mailman/listinfo/cascavel-pm
</a><br>&gt;<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>&quot;o animal satisfeito dorme&quot;. - Guimarães Rosa