<html><head><style type="text/css"><!-- DIV {margin:0px;} --></style></head><body><div style="font-family:times new roman, new york, times, serif;font-size:12pt"><div style="font-family: times new roman,new york,times,serif; font-size: 12pt;">Eu zero em my $tot=0;<br>mas ele nao zera :/<br>Tem como eu contar elementos de outra forma?<br>Ex:<br>array=(4,3,10,45,23)<br>contar os elementos > q 5 :D<br><br>Obrigada<br><br><div style="font-family: times new roman,new york,times,serif; font-size: 12pt;">----- Mensagem original ----<br>De: Solli Honorio <shonorio@gmail.com><br>Para: Cascavel Perl Mongers <cascavel-pm@pm.org><br>Enviadas: Segunda-feira, 14 de Janeiro de 2008 17:00:16<br>Assunto: Re: [Cascavel-pm] Duvida em contar elemento no array<br><br><br><br><div><span class="gmail_quote">Em 14/01/08, <b class="gmail_sendername">Patty Silva</b> <<a rel="nofollow" ymailto="mailto:ptfzs@yahoo.com.br" target="_blank"
href="mailto:ptfzs@yahoo.com.br">ptfzs@yahoo.com.br</a>> escreveu:</span><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
<div><div style="font-family: times new roman,new york,times,serif; font-size: 12pt;"><div>Pessoal, <br>como de sugestao de pessoas da lista, estou tentar contar quantidade de elementos em um array..<br><br>vou no banco e recupero os dados :
<br><br>.....<br>.....<br><br><br>while ( my @row = $sth2->fetchrow_array( ) )<br>{ <br> my $tot=0;<br> my @cont_var;<br> my $cont_var;</div></div></div></blockquote><div><br><span style="font-family: courier new,monospace;">
Patty, estou confuso neste ponto (entre outros)... você está declarando um array 'cont_var' e uma string 'cont_var' ao mesmo tempo ? Este programa roda com stricts e '-w' ?</span><br style="font-family: courier new,monospace;">
</div><br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;"><div><div style="font-family: times new roman,new york,times,serif; font-size: 12pt;">
<div> @cont_var=("$umid","$dir","$ven","$pre","$vel","$velv","$pres","$par","$min","$max","$tacao","$lo");
<br><br> <br> $cont_var{$_}++ for @cont_var; # contar os números<br> <br> <br> foreach my $key1 (keys %cont_var)<br>
{<br> <br> if($key1 >= 5)<br> {<br> $tot_flag++;<br> <br> }<br> <br> }<br><br> print "TOT_FLAG=>>$tot_flag\n";<br><br><br><br><br><br>so que ele nao esta zerando.. na 1 passagem ele faz correto na segunda ele conta a 1 + a 2 :/
</div></div></div></blockquote><div><br><span style="font-family: courier new,monospace;">Mas onde você está pedindo para 'zerar' ? E quem você quer zerar ? </span> <br></div><br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
<div><div style="font-family: times new roman,new york,times,serif; font-size: 12pt;"><div>Alguem pode me dar uma luz..<br><br>Obrigada<br></div></div><span class="ad"><br>
<hr size="1">Abra sua conta no <a rel="nofollow" target="_blank" href="http://br.rd.yahoo.com/mail/taglines/mail/*http://br.mail.yahoo.com/">Yahoo! Mail</a>, o único sem limite de espaço para armazenamento!
</span></div><br>_______________________________________________<br>Cascavel-pm mailing list<br><a rel="nofollow" ymailto="mailto:Cascavel-pm@pm.org" target="_blank" href="mailto:Cascavel-pm@pm.org">Cascavel-pm@pm.org</a><br><a rel="nofollow" target="_blank" href="http://mail.pm.org/mailman/listinfo/cascavel-pm">
http://mail.pm.org/mailman/listinfo/cascavel-pm</a><br></blockquote></div><br><br clear="all"><br>-- <br>"o animal satisfeito dorme". - Guimarães Rosa
</div><br></div></div><br>
<hr size=1>Abra sua conta no <a href="http://br.rd.yahoo.com/mail/taglines/mail/*http://br.mail.yahoo.com/">Yahoo! Mail</a>, o único sem limite de espaço para armazenamento!
</body></html>