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

Lorn lorn.br em gmail.com
Sábado Dezembro 1 05:59:22 PST 2007


Você estava checando só uma vez :P precisa checar até acabar toda a frase :)
use warnings;
use strict;

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

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

On Dec 1, 2007 11:41 AM, gabriel lima <gabriellima333 em hotmail.com> wrote:

>  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! É
> GRÁTIS! Assine já! <http://alertas.br.msn.com/>
>
> _______________________________________________
> Rio-pm mailing list
> Rio-pm em pm.org
> http://mail.pm.org/mailman/listinfo/rio-pm
>



-- 
Lindolfo "Lorn" Rodrigues
- www.slackwarezine.com.br
- http://lornlab.org
- http://sao-paulo.pm.org
use Catalyst;
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/rio-pm/attachments/20071201/cbfa120f/attachment.html 


Mais detalhes sobre a lista de discussão Rio-pm