[Cascavel-pm] Duvidas simples
Nilson Santos Figueiredo Junior
acid06 em gmail.com
Segunda Janeiro 9 18:46:22 PST 2006
On 1/9/06, Solli Moreira Honorio <shonorio em terra.com.br> wrote:
> $frase = 'aaaaaabbbbbbbccccccdddddeeee';
> $palavra = 'a';
> $count = 0;
> while ( $frase =~ s/($palavra)//i){
> $count++;
> }
>
> print "$count\n";
Ou então, que é o que eu provavelmente faria o que eu faria, por não
ser um método que destrói a $frase:
my $frase = 'aaaaaabbbbbbbccccccdddddeeee';
my $palavra = 'a';
my $count = 0;
$count++ for ($frase =~ /$palavra/g);
Ou então, que é mais curto:
my $frase = 'aaaaaabbbbbbbccccccdddddeeee';
my $palavra = 'a';
my $count = scalar @{[$frase =~ /$palavra/g]};
E provavelmente devem ter outras maneiras. TMTOWTDI. ;-)
-Nilson Santos F. Jr.
Mais detalhes sobre a lista de discussão Cascavel-pm