[Cascavel-pm] RES: Duvidas simples

Marcelo Stella marcelo em stella.eng.br
Terça Janeiro 10 04:36:39 PST 2006


$palavra = "aaaaaaaaaaaaaaaabbbbbbbbbbbbbbcccccccccccc";
$_ = $palavra;   # se estiver em um loop qualquer e usando o $_
$conta = tr/a//;
print $palavra."\n".$conta."\n";

aaaaaaaaaaaaaaaabbbbbbbbbbbbbbcccccccccccc
16


print log 10;

2.30258509299405



-----Mensagem original-----
De: cascavel-pm-bounces+marcelo=stella.eng.br em pm.org
[mailto:cascavel-pm-bounces+marcelo=stella.eng.br em pm.org] Em nome de Luis
Campos de Carvalho
Enviada em: terça-feira, 10 de janeiro de 2006 08:19
Para: Cascavel Perl Mongers
Assunto: Re: [Cascavel-pm] Duvidas simples

--- Nilson Santos Figueiredo Junior <acid06 em gmail.com> escreveu:
> my $frase = 'aaaaaabbbbbbbccccccdddddeeee';
> my $palavra = 'a';
> my $count = scalar @{[$frase =~ /$palavra/g]};
> 
> E provavelmente devem ter outras maneiras. TMTOWTDI. ;-)

  # Eu nao testei este, mas acho que é 
  # mais simples de entender... ;-)
  my $count = ($frase =~ /$palavra/g);

--
Luis Campos de Carvalho
Member of "São Paulo Perl Mongers",
Unix SysAdmin & OCP/DBA Oracle


	



	
		
_______________________________________________________ 
Yahoo! doce lar. Faça do Yahoo! sua homepage. 
http://br.yahoo.com/homepageset.html 

_______________________________________________
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