<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;">Ok Eden..<br>Muito Obrigada<br>Funcionou legal... :D<br><br><div style="font-family: times new roman,new york,times,serif; font-size: 12pt;">----- Mensagem original ----<br>De: eden <edencardim@gmail.com><br>Para: Cascavel Perl Mongers <cascavel-pm@pm.org><br>Enviadas: Sexta-feira, 9 de Novembro de 2007 16:18:36<br>Assunto: Re: [Cascavel-pm] Contar determinado elemento do array<br><br>On Nov 9, 2007 1:05 PM, Patty Silva <<a ymailto="mailto:ptfzs@yahoo.com.br" href="mailto:ptfzs@yahoo.com.br">ptfzs@yahoo.com.br</a>> wrote:<br>><br>> Pessoal.. tem alguma funcao que conte qts vezes um determinado valor<br>> apareceu no array?<br>><br>> Ex:<br>> Array:
@teste=(1,2,4,1,3,4,1,3,5,1,2,3,6,1.................);<br>> qts 1 possui no array?<br>> qts 3 possui no array?<br><br>use warning;<br>use strict;<br><br>my %count;<br><br>my @nums = map { rand 10 } (1) x 10; # gerar 10 números entre 0 e 9<br>aleatoriamente<br>print join ', ', @nums; # exibir os números, para conferência<br><br>$count{$_}++ for @nums; # contar os números<br>print "$_: $count{$_}\n" for keys %count; # mostrar resultados<br><br>-- <br>edenc.vox.com<br>_______________________________________________<br>Cascavel-pm mailing list<br><a ymailto="mailto:Cascavel-pm@pm.org" href="mailto:Cascavel-pm@pm.org">Cascavel-pm@pm.org</a><br><a href="http://mail.pm.org/mailman/listinfo/cascavel-pm" target="_blank">http://mail.pm.org/mailman/listinfo/cascavel-pm</a><br></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>