[Cascavel-pm] Duvidas simples

[Luis Campos de Carvalho]

--- 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