[Cascavel-pm] Contando caractares
fernandolouis em terra.com.br
fernandolouis em terra.com.br
Quarta Novembro 21 11:17:57 PST 2007
Negativo! Sempre pesquiso antes de perguntar... se não acho ou minhas
dúvidas não são elucidadas, recorro à lista.
Sou menos experientes em alguns assuntos, e quando há dúvidas ao meu alcance
ajudo sim, como já fiz anteriormente.
Em Perl há muitas e mais-um-pouco maneiras de se fazer a mesma coisa. E
talvez a solução apresentada nem sempre é bem compreendida por todos.
RTFM nem sempre ajuda, porém aqui na lista sempre encontro a explicação mais
transparente.
Na verdade, muitas vezes os manuais não explicam informalmente as
soluções/algorítmos como nós aqui...
A compreensão é mais rápida quando explicada cara-a-cara que cara-a-livro.
Um abraço
Fernando
----- Original Message -----
From: "Luiz Gonzaga" <lgonzaga em lncc.br>
To: "Cascavel Perl Mongers" <cascavel-pm em pm.org>
Sent: Wednesday, November 21, 2007 3:50 PM
Subject: Re: [Cascavel-pm] Contando caractares
Fernando,
Uma pergunta: Voce leu o manual antes de enviar as suas duvidas ?
Nao vou esperar a sua resposta!
Vamos lá. "man Benchmark" te dará o "help" do modulo Benchmark. LEIA este
manual. Se nao quiser ler todo, leia somente a funcao "cmpthese". Recomendo
fortemente que leia ele todo.
Se nao quiser usar o "man", vamos ao Google. Procure por "use benchmark". O
primeiro link eh: perldoc.perl.org/Benchmark.html.
Estas duas dicas respondem a segunda pergunta que voce fez: "E pra que serve
o
"Benchmark"?".
Quanto a primeira pergunta, se apos ler o manual, continuar sem entender o
resultado da funcao "cmpthese", pergunte que eu tento ajudar.
Agora, tentar compreender sem estudar, sem ler, provavelmente sera sempre
mais
dificil e o teor das minhas mensagens anteriores e das mensagens de outras
pessoas eh que voce constantemente faz este tipo de pergunta, como se a
lista
fosse um Servico de Atendimento a Clientes e recorrentemente voce eh
alertado
disto e parece nao compreender.
Luiz.
Em Quarta 21 Novembro 2007 15:27, fernandolouis em terra.com.br escreveu:
> 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
> To: Cascavel Perl Mongers
> 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
>
> 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
> To: Cascavel Perl Mongers
> 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 =~ /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.
>
> > []s,
> > Fernando
> >
> > _______________________________________________
> > Cascavel-pm mailing list
> > Cascavel-pm em pm.org
> > http://mail.pm.org/mailman/listinfo/cascavel-pm
>
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>
>
>
>
> --
> "o animal satisfeito dorme". - Guimarães Rosa
>
>
> --------------------------------------------------------------------------
>
>
> _______________________________________________
>
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>
>
>
>
>
> ---------------------------------------------------------------------------
>---
>
>
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
--
Luiz G. P. de Almeida
Analista de Sistemas
Laboratório Nacional de Computação Científica / MCT
_______________________________________________
Cascavel-pm mailing list
Cascavel-pm em pm.org
http://mail.pm.org/mailman/listinfo/cascavel-pm
Mais detalhes sobre a lista de discussão Cascavel-pm