[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