<br><br><div><span class="gmail_quote">Em 14/01/08, <b class="gmail_sendername">Patty Silva</b> &lt;<a href="mailto:ptfzs@yahoo.com.br">ptfzs@yahoo.com.br</a>&gt; 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-&gt;fetchrow_array( ) )<br>{ <br>&nbsp;&nbsp;&nbsp; my $tot=0;<br>&nbsp;&nbsp;&nbsp; my @cont_var;<br>&nbsp;&nbsp;&nbsp; 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&nbsp; um&nbsp; array&nbsp; &#39;cont_var&#39; e uma string &#39;cont_var&#39; ao mesmo tempo ? Este programa roda com stricts e &#39;-w&#39; ?</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>&nbsp;&nbsp;&nbsp; @cont_var=(&quot;$umid&quot;,&quot;$dir&quot;,&quot;$ven&quot;,&quot;$pre&quot;,&quot;$vel&quot;,&quot;$velv&quot;,&quot;$pres&quot;,&quot;$par&quot;,&quot;$min&quot;,&quot;$max&quot;,&quot;$tacao&quot;,&quot;$lo&quot;);&nbsp;&nbsp;&nbsp; 
<br><br>&nbsp;&nbsp;&nbsp; <br>&nbsp;&nbsp;&nbsp; $cont_var{$_}++ for @cont_var; # contar os números<br>&nbsp;&nbsp;&nbsp; <br>&nbsp;&nbsp;&nbsp;&nbsp; <br>&nbsp;&nbsp;&nbsp;&nbsp; foreach my $key1 (keys %cont_var)<br>&nbsp;&nbsp;&nbsp;&nbsp;
 {<br>&nbsp;&nbsp;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if($key1 &gt;= 5)<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; {<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; $tot_flag++;<br>&nbsp;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; }<br>&nbsp;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; }<br><br>&nbsp;&nbsp;&nbsp; print &quot;TOT_FLAG=&gt;&gt;$tot_flag\n&quot;;<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&nbsp; &#39;zerar&#39; ?&nbsp; E quem você&nbsp; quer&nbsp; 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 href="http://br.rd.yahoo.com/mail/taglines/mail/*http://br.mail.yahoo.com/" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">Yahoo! Mail</a>, o único sem limite de espaço para armazenamento! 
</span></div><br>_______________________________________________<br>Cascavel-pm mailing list<br><a onclick="return top.js.OpenExtLink(window,event,this)" href="mailto:Cascavel-pm@pm.org">Cascavel-pm@pm.org</a><br><a onclick="return top.js.OpenExtLink(window,event,this)" href="http://mail.pm.org/mailman/listinfo/cascavel-pm" target="_blank">
http://mail.pm.org/mailman/listinfo/cascavel-pm</a><br></blockquote></div><br><br clear="all"><br>-- <br>&quot;o animal satisfeito dorme&quot;. - Guimarães Rosa