[Cascavel-pm] Duvida em contar elemento no array

[Patty Silva]

Pessoal, 
como de sugestao de pessoas da lista, estou tentar contar quantidade de elementos em um array..

vou no banco e recupero os dados :

.....
.....


while ( my @row = $sth2->fetchrow_array( ) )
{ 
    my $tot=0;
    my @cont_var;
    my $cont_var;
    
    @cont_var=("$umid","$dir","$ven","$pre","$vel","$velv","$pres","$par","$min","$max","$tacao","$lo");    

    
    $cont_var{$_}++ for @cont_var; # contar os números
    
     
     foreach my $key1 (keys %cont_var)
     {
  
          if($key1 >= 5)
          {
             $tot_flag++;
 
          }
 
      }

    print "TOT_FLAG=>>$tot_flag\n";





so que ele nao esta zerando.. na 1 passagem ele faz correto na segunda ele conta a 1 + a 2 :/

Alguem pode me dar uma luz..

Obrigada




      Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento!
http://br.mail.yahoo.com/
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20080114/b28217cc/attachment.html