[Rio-pm] Expressão Regular m//

[gabriel lima]

Olá pessoal tudo bem?
Estava tentando criar uma sub-rotina simples apenas
para estudo da linguagem Perl. Esta sub-rotina mostra
quantas vezes uma palavra aparece em uma string.
O problema é que ela só retorna 1, ou seja, fala que
só acha esta palavra uma vez, mesmo tendo aparecido
repetida vezes na string, veja:

#! D:\Perl\bin\Perl.exe

use warnings;
use strict;

my $cont;
my $string = 'Estou feliz, passei em Matematica Discreta I, feliz!';
&aparece($string);

sub aparece{
  my $frase = shift();
  $cont++ if $string =~ m/feliz/;
  print "Feliz apareceu $cont vezes\n";
}

Saída -> Feliz apareceu 1 vezes

_________________________________________________________________
Receba as últimas notícias do Brasil e do mundo direto no seu Messenger com Alertas MSN! É GRÁTIS!
http://alertas.br.msn.com/
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/rio-pm/attachments/20071201/ea718646/attachment.html