<div><font face="courier new,monospace">Fernando, o Benchmark é um módulo que ajuda a comparar qual código possue 'melhor desempenho'. O resultado mostra que o 'tr' é 247% mais rápido que a solução do eden. O resultado final será o mesmo, mas o consumo de recurso bem diferente.
</font></div>
<div> </div>
<div><font face="courier new,monospace">No livro 'Mastering Perl' tem um capítulo interessante (</font><a href="http://www252.pair.com/comdog/mastering_perl/Chapters/06.benchmarking.html"><font face="courier new,monospace">
http://www252.pair.com/comdog/mastering_perl/Chapters/06.benchmarking.html</font></a><font face="courier new,monospace">), vale a pena dar uma olhada.</font></div>
<div><font face="courier new,monospace"></font> </div>
<div><font face="courier new,monospace">Abraços,</font></div>
<div><font face="courier new,monospace"></font> </div>
<div><font face="courier new,monospace">Solli M. Honório</font></div>
<div class="gmail_quote">On Nov 21, 2007 2:41 PM, <<a href="mailto:fernandolouis@terra.com.br">fernandolouis@terra.com.br</a>> wrote:<br>
<blockquote class="gmail_quote" style="PADDING-LEFT: 1ex; MARGIN: 0px 0px 0px 0.8ex; BORDER-LEFT: #ccc 1px solid">
<div bgcolor="#ffffff">
<div><font face="Trebuchet MS" size="2">Amigo,</font></div>
<div><font face="Trebuchet MS" size="2"></font> </div>
<div><font face="Trebuchet MS" size="2">não compreendi o <resultado></resultado></font></div>
<div><font face="Trebuchet MS" size="2"></font> </div>
<div><font face="Trebuchet MS" size="2">o que exatamente siginifcam os valores? E pra que serve o "Benchmark"?</font></div>
<div><font face="Trebuchet MS" size="2"></font> </div>
<div><font face="Trebuchet MS" size="2">[]s,</font></div>
<div><font face="Trebuchet MS" size="2">Fernando</font></div>
<div><font face="Trebuchet MS" size="2"></font> </div>
<blockquote style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<div class="Ih2E3d">
<div style="FONT: 10pt arial">----- Original Message ----- </div>
<div style="BACKGROUND: #e4e4e4; FONT: 10pt arial"><b>From:</b> <a title="shonorio@gmail.com" href="mailto:shonorio@gmail.com" target="_blank">Solli Honorio</a> </div>
<div style="FONT: 10pt arial"><b>To:</b> <a title="cascavel-pm@pm.org" href="mailto:cascavel-pm@pm.org" target="_blank">Cascavel Perl Mongers</a> </div>
<div style="FONT: 10pt arial"><b>Sent:</b> Tuesday, November 20, 2007 6:28 PM</div>
<div style="FONT: 10pt arial"><b>Subject:</b> Re: [Cascavel-pm] Contando caractares</div>
<div><br></div></div>
<div>
<div></div>
<div class="Wj3C7c"><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' =>
<a href="mailto:'@%7B[$var" target="_blank">'@{[$var</a> =~ /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" target="_blank">a.r.ferreira@gmail.com</a>> wrote:<br>
<blockquote class="gmail_quote" style="PADDING-LEFT: 1ex; MARGIN: 0pt 0pt 0pt 0.8ex; BORDER-LEFT: rgb(204,204,204) 1px solid">
<div>
<div></div>
<div>On Nov 20, 2007 9:35 AM, <<a href="mailto:fernandolouis@terra.com.br" target="_blank">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>> _______________________________________________ <br>> Cascavel-pm mailing list<br>> <a href="mailto:Cascavel-pm@pm.org" target="_blank">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" target="_blank">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
</div></div>
<p>
<hr>
<p></p>_______________________________________________
<div class="Ih2E3d"><br>Cascavel-pm mailing list<br><a href="mailto:Cascavel-pm@pm.org" target="_blank">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></div>
<p></p></p></blockquote></div><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></blockquote></div><br><br clear="all"><br>-- <br>"o animal satisfeito dorme". - Guimarães Rosa