Você estava checando só uma vez :P precisa checar até acabar toda a frase :)<div><br><div><div>use warnings;</div><div>use strict;</div><div><br class="webkit-block-placeholder"></div><div>my $cont;</div><div>my $string = 'Estou feliz, passei em Matematica Discreta I, feliz!';
</div><div>&aparece($string);</div><div><br class="webkit-block-placeholder"></div><div>sub aparece{</div><div> my $frase = shift();</div><div> while ($string =~ m/feliz/g){</div><div> $cont++;</div><div> };</div>
<div> print "Feliz apareceu $cont vezes\n";</div><div>}</div><br><div class="gmail_quote">On Dec 1, 2007 11:41 AM, gabriel lima <<a href="mailto:gabriellima333@hotmail.com">gabriellima333@hotmail.com</a>> wrote:
<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">
<div>
Olá pessoal tudo bem?<br>Estava tentando criar uma sub-rotina simples apenas<br>para estudo da linguagem Perl. Esta sub-rotina mostra<br>quantas vezes uma palavra aparece em uma string.<br>O problema é que ela só retorna 1, ou seja, fala que
<br>só acha esta palavra uma vez, mesmo tendo aparecido<br>repetida vezes na string, veja:<br><br>#! D:\Perl\bin\Perl.exe<br><br>use warnings;<br>use strict;<br><br>my $cont;<br>my $string = 'Estou feliz, passei em Matematica Discreta I, feliz!';
<br>&aparece($string);<br><br>sub aparece{<br> my $frase = shift();<br> $cont++ if $string =~ m/feliz/;<br> print "Feliz apareceu $cont vezes\n";<br>}<br><br>Saída -> Feliz apareceu 1 vezes<br><br><hr>
Receba as últimas notícias do Brasil e do mundo direto no seu Messenger! É GRÁTIS! <a href="http://alertas.br.msn.com/" target="_blank">Assine já!</a></div>
<br>_______________________________________________<br>Rio-pm mailing list<br><a href="mailto:Rio-pm@pm.org">Rio-pm@pm.org</a><br><a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank">http://mail.pm.org/mailman/listinfo/rio-pm
</a><br></blockquote></div><br><br clear="all"><br>-- <br>Lindolfo "Lorn" Rodrigues<br>- <a href="http://www.slackwarezine.com.br">www.slackwarezine.com.br</a><br>- <a href="http://lornlab.org">http://lornlab.org
</a><br>- <a href="http://sao-paulo.pm.org">http://sao-paulo.pm.org</a><br>use Catalyst;
</div></div>