[Cascavel-pm] Duvidas simples

[Solli Moreira Honorio]

> 
> Tenho duas perguntas simples:
> 
> 1) Como se calcula o logaritmo na base 2 ou na base 10 de um número
>    qualquer em perl?
      $valor =  log($n)/log($base);
> 
> 2) Como eu consigo saber, de uma forma simples, o número de ocorrências
>    de um determinado padrão em uma cadeia de caracteres, ou seja, o
>    número de vezes que o padrão aparece na cadeia?
> 
$frase = 'aaaaaabbbbbbbccccccdddddeeee';
$palavra = 'a';
$count = 0;
while ( $frase =~ s/($palavra)//i){
    $count++;
}

print "$count\n";

Solli