[Cascavel-pm] Contar determinado elemento do array

[eden]

On Nov 9, 2007 1:05 PM, Patty Silva <ptfzs em yahoo.com.br> wrote:
>
> Pessoal.. tem alguma funcao que conte qts vezes um determinado valor
> apareceu no array?
>
> Ex:
> Array: @teste=(1,2,4,1,3,4,1,3,5,1,2,3,6,1.................);
> qts 1 possui no array?
> qts 3 possui no array?

use warning;
use strict;

my %count;

my @nums = map { rand 10 } (1) x 10; # gerar 10 números entre 0 e 9
aleatoriamente
print join ', ', @nums; # exibir os números, para conferência

$count{$_}++ for @nums; # contar os números
print "$_: $count{$_}\n" for keys %count; # mostrar resultados

-- 
edenc.vox.com