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

[gabriel lima]

Primeiro gostaria de agradecer a todos (Lorn, Fernando, Blabos, 
Breno, Marco e Gabriel) pelas respostas. Mas, concordo com o Marco, 
primeiro eu vou preocupar em resolver os meus problemas e depois
que tiver mais experiencia, como vocês, vou analisar o que é melhor (:
Portanto...

#! 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++ while $string =~ m/feliz/g;
  print "Feliz apareceu $cont vezes\n";
}

_________________________________________________________________
Receba GRÁTIS as mensagens do Messenger no seu celular quando você estiver offline. Conheça  o MSN Mobile!
http://mobile.live.com/signup/signup2.aspx?lc=pt-br
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/rio-pm/attachments/20071202/13a8dbe7/attachment.html