<html>
<head>
<style>
.hmmessage P
{
margin:0px;
padding:0px
}
body.hmmessage
{
FONT-SIZE: 10pt;
FONT-FAMILY:Tahoma
}
</style>
</head>
<body class='hmmessage'>
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='_new'>Assine já!</a></body>
</html>