[Cascavel-pm] Duvidas simples

[Solli Moreira Honorio]

> 
> 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:
E também é mais rápido, vide código de comparação abaixo.

<code>
use Benchmark qw(:all) ;

cmpthese( -1, {
        'Sugestao_1' => s1(),
        'Sugestao_2' => s2(),
        'Sugestao_3' => s3() });

sub s1 {
    $frase = 'aaaaaabbbbbbbccccccdddddeeee';
    $palavra = 'a';
    $count = 0;
    while ( $frase =~ s/($palavra)//i){ $count++; } 
}

sub s2 {
    my $frase = 'aaaaaabbbbbbbccccccdddddeeee';
    my $palavra = 'a';
    my $count = 0;
    $count++ for ($frase =~ /$palavra/g);
}

sub s3 {
    my $frase = 'aaaaaabbbbbbbccccccdddddeeee';
    my $palavra = 'a';
    my $count = scalar @{[$frase =~ /$palavra/g]};
}
</code>

com o seguinte resultado ...

<resultado>
                 Rate             Sugestao_2 Sugestao_3 Sugestao_1
Sugestao_2 38182268/s         --           -20%       -59%
Sugestao_3 47883867/s        25%         --           -48%
Sugestao_1 92327446/s       142%        93%         --
</resultado>