Espera, você leu errado, Márcio. <br><br>Como eu falei "acima", Rate = Velocidade. "tr" rodou mais de 3 milhões de vezes por segundo, enquanto "array" fez apenas 1 milhão. <br><br>The manual says "This chart is sorted from slowest to fastest"; that meanifica "do mais lento pro mais rápido", não o contrário.
<br><br>[]s<br>Wendel (mixing línguas for fun)<br><br><div class="gmail_quote">On Nov 21, 2007 3:43 PM, Márcio Vitor <<a href="mailto:cromo.jml@gmail.com">cromo.jml@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;">
O gráfico é uma comparação de velocidade entre os emparelhamentos<br>indicados pelo Solli:<br><div class="Ih2E3d"><br>> >cmpthese(-1, {<br>> > 'array' => '@{[$var =~ /a/g]}',<br>
> > 'while' => 'while ( $var =~ /a/g ) { $qtd02++}',<br>> > 'tr' => '$var =~ y/a/A/'<br>> > });<br><br></div>É classificado do mais rápido ao mais lento, a primeira coluna Rate
<br>mostra a velocidade com que cada um foi executado, o restante mostra o<br>percentual de perfomance entre cada um, repare que a array é comparado<br>com while e tr e como ela é a mais rápida, todos mostram um percentual
<br>negativo sobre ela, assim como o array teve uma perfomance 247% melhor<br>que o tr.<br>Ah, tá na manual:<br><br>cmpthese ( RESULTSHASHREF, [ STYLE ] )<br> Optionally calls timethese(), then outputs comparison
<br>chart. This:<br><br> cmpthese( -1, { a => "++\$i", b => "\$i *= 2" } ) ;<br><br> outputs a chart like:<br><br> Rate b a<br>
b 2831802/s -- -61%<br> a 7208959/s 155% --<br><br> This chart is sorted from slowest to fastest, and<br>shows the percent speed difference between each pair<br>
of tests.<br><br><br>Abraços<br><font color="#888888"><br>Márcio Vitor<br></font><div><div></div><div class="Wj3C7c"><br><br>On Nov 21, 2007 3:27 PM, <<a href="mailto:fernandolouis@terra.com.br">fernandolouis@terra.com.br
</a>> wrote:<br>> <resultado><br>> Rate array while tr<br>> array 1090778/s -- -54% -71%<br>> while 2388776/s 119% -- -37%<br>> tr 3781862/s 247% 58% --<br>> </resultado>
<br>><br>><br>><br>> ----- Original Message -----<br>> From: Márcio Vitor<br>> To: Cascavel Perl Mongers<br>><br>><br>> Sent: Wednesday, November 21, 2007 2:47 PM<br>> Subject: Re: [Cascavel-pm] Contando caractares
<br>><br>> Poxa Fernando na boa, fazer uma pesquisa não é tão mais difícil do que<br>> perguntar na lista, fiz a pesquisa e a primeira ocorrência é deste link (em<br>> português):<br>> <a href="http://pt.wikipedia.org/wiki/Benchmark" target="_blank">
http://pt.wikipedia.org/wiki/Benchmark</a><br>><br>> Abraços<br>><br>> Márcio Vitor<br>><br>><br>> On Nov 21, 2007 2:41 PM, <<a href="mailto:fernandolouis@terra.com.br">fernandolouis@terra.com.br</a>
> wrote:<br>><br>> ><br>> ><br>> > Amigo,<br>> ><br>> > não compreendi o <resultado></resultado><br>> ><br>> > o que exatamente siginifcam os valores? E pra que serve o "Benchmark"?
<br>> ><br>> > []s,<br>> > Fernando<br>> ><br>> ><br>> ><br>> > ----- Original Message -----<br>> > From: Solli Honorio<br>> > To: Cascavel Perl Mongers<br>> > Sent: Tuesday, November 20, 2007 6:28 PM
<br>> > Subject: Re: [Cascavel-pm] Contando caractares<br>> ><br>> ><br>> ><br>> ><br>> > Não resisti, que tal um golfe ?<br>> ><br>> > $q=$v=~y/a//;<br>> ><br>> > ... e tem outra coisa, o 'tr' ou 'y' é mais rápido ...
<br>> > <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>> > </code>
<br>> ><br>> > <resultado><br>> > Rate array while tr<br>> > array 1090778/s -- -54% -71%<br>> > while 2388776/s 119% -- -37%<br>> > tr 3781862/s 247% 58% --
<br>> > </resultado><br>> ><br>> ><br>> > 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>> ><br>> > >
<br>> > ><br>> > ><br>> > > 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>> > > 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<br>> particular.<br>> > ><br>> > > ><br>> > > > []s,<br>> > > > Fernando<br>> > >
<br>> > ><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>> > > ><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>> > ><br>> ><br>> ><br>> ><br>> > --<br>> > "o animal satisfeito dorme". - Guimarães Rosa<br>> ><br>> > ________________________________<br>><br>> >
<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>> > _______________________________________________<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>><br>><br>> ________________________________<br>
><br>><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>> _______________________________________________<br><div><div></div><div class="Wj3C7c">> 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>[]s<br>Wendel