[Cascavel-pm] Contando caractares

[Wendel Scardua]

Bom, perldoc benchmark já explicaria (alguém mencionou "man benchmark" mas
isso não funcionou aqui no meu mac)

Basicamente o "Rate" indica quantas vezes por segundo a rotina foi chamada,
ou seja, é a "velocidade" dela; mais rápido = melhor.

A tabela te diz, por exemplo, que o método "tr" foi 247% mais rápido que o
método array, ou que "while" foi 37% mais lento que "tr".

[]s
Wendel


On Nov 21, 2007 3:27 PM, <fernandolouis em terra.com.br> wrote:

>  sim, a palavra "benchmark" eu sei o que é... sou formado em design
> também.
>
> como bons "amigos", seria mais fácil explicar o que realmente foi
> perguntado e não a "palavra" em si.
>
> Então o que exatamente significam os valores em <resultado>?
> Sei que é uma medição para ver as melhores performances.... mas não
> compreendi totalmente.
>
> <resultado>
>            Rate array while    tr
> array 1090778/s    --  -54%  -71%
> while 2388776/s  119%    --  -37%
> tr    3781862/s  247%   58%    --
> </resultado>
>
>
>
> ----- Original Message -----
> *From:* Márcio Vitor <cromo.jml em gmail.com>
> *To:* Cascavel Perl Mongers <cascavel-pm em pm.org>
> *Sent:* Wednesday, November 21, 2007 2:47 PM
> *Subject:* Re: [Cascavel-pm] Contando caractares
>
> Poxa Fernando na boa, fazer uma pesquisa não é tão mais difícil do que
> perguntar na lista, fiz a pesquisa e a primeira ocorrência é deste link (em
> português):
> http://pt.wikipedia.org/wiki/Benchmark
> <http://pt.wikipedia.org/wiki/Benchmark+>
>
> Abraços
>
> Márcio Vitor
>
> On Nov 21, 2007 2:41 PM, <fernandolouis em terra.com.br> wrote:
>
> >  Amigo,
> >
> > não compreendi o <resultado></resultado>
> >
> > o que exatamente siginifcam os valores? E pra que serve o "Benchmark"?
> >
> > []s,
> > Fernando
> >
> >
> >  ----- Original Message -----
> > *From:* Solli Honorio <shonorio em gmail.com>
> > *To:* Cascavel Perl Mongers <cascavel-pm em pm.org>
> > *Sent:* Tuesday, November 20, 2007 6:28 PM
> > *Subject:* Re: [Cascavel-pm] Contando caractares
> >
> >  Não resisti, que tal um golfe ?
> >
> > $q=$v=~y/a//;
> >
> > ... e tem outra coisa, o 'tr' ou 'y' é mais rápido ...
> > <code>
> > use Benchmark qw(:all) ;
> > my $var   = 'parlamentarismo';
> >
> > cmpthese(-1, {
> >             'array' => '@{[$var <%27@%7B%5B$var> =~ /a/g]}',
> >             'while' => 'while ( $var =~ /a/g ) { $qtd02++}',
> >             'tr'    => '$var =~ y/a/A/'
> >               });
> > </code>
> >
> > <resultado>
> >            Rate array while    tr
> > array 1090778/s    --  -54%  -71%
> > while 2388776/s  119%    --  -37%
> > tr    3781862/s  247%   58%    --
> > </resultado>
> >
> > On Nov 20, 2007 3:15 PM, Adriano Ferreira <a.r.ferreira em gmail.com>
> > wrote:
> >
> > >  On Nov 20, 2007 9:35 AM,  <fernandolouis em terra.com.br> wrote:
> > > >
> > > >
> > > > Dae Pessoal... olha só...
> > > >
> > > > $variavel = "casa";
> > > > Como faço pra contar quantos "a" tem em $variavel?
> > > > Tentei o seguinte, mas não fucionou:
> > > > $qtd = $variavel =~ m /a/g;
> > >
> > > Se o que você quer é apenas contar caracteres, use tr//
> > >
> > > $qtd = $variavel =~ tr/a/a/;
> > >
> > > Leia sobre o operator em "perldoc perlop" e sobre este uso em
> > > particular.
> > >
> > >
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20071121/93132a13/attachment-0001.html