push @juncao_elementos, @array1, @array2;<div><br><div class="gmail_quote">2010/7/21 "Flávio R. Lopes" <span dir="ltr"><<a href="mailto:flavio.lopes@links.inf.br">flavio.lopes@links.inf.br</a>></span><br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">
Aproveitando a oportunidade, teria jeito mais fácil do que este que eu fiz para juntar dois Arrays em um terceiro array, por exemplo:<br>
<br>
my @array1 = qw ( 4 5 6 7 );<br>
my @array2 = qw ( 8 9 );<br>
<br>
foreach my $elementos ( @array1, @array2 ) {<br>
<br>
push @juncao_elementos, $elementos;<br>
<br>
}<br>
<br>
<br>
<br>
<br>
Em 21-07-2010 22:45, Daniel de Oliveira Mantovani escreveu:<div><div></div><div class="h5"><br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
Você pode contar o tanto de vezes que aparece em seguida,<br>
<br>
use strict;<br>
use warnings;<br>
use Data::Dumper;<br>
<br>
my @numeros = ( 1, 2, 3, 4, 5, 6, 6, 6, 5 );<br>
my %hash = map { $_ => { $_ => ++$_{$_} } } @numeros;<br>
<br>
print Dumper %hash;<br>
<br>
<resultado>mantovani@mantovani-desktop:~$ perl <a href="http://foo.pl" target="_blank">foo.pl</a><br>
$VAR1 = '6';<br>
$VAR2 = {<br>
'6' => 3<br>
};<br>
$VAR3 = '4';<br>
$VAR4 = {<br>
'4' => 1<br>
};<br>
$VAR5 = '1';<br>
$VAR6 = {<br>
'1' => 1<br>
};<br>
$VAR7 = '3';<br>
$VAR8 = {<br>
'3' => 1<br>
};<br>
$VAR9 = '2';<br>
$VAR10 = {<br>
'2' => 1<br>
};<br>
$VAR11 = '5';<br>
$VAR12 = {<br>
'5' => 2<br>
};<br>
</resultado><br>
<br>
<br>
2010/7/21 "Flávio R. Lopes"<<a href="mailto:flavio.lopes@links.inf.br" target="_blank">flavio.lopes@links.inf.br</a>>:<br>
<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
Humm....<br>
<br>
Obrigado pessoal!<br>
<br>
Em 21-07-2010 21:41, Giuliani Sanches escreveu:<br>
<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
Flávio,<br>
<br>
Hash não permite a duplicação de chaves. Ao adicionar o primeiro 6,<br>
ele simplesmente vai sobrescrevendo o conteúdo e como todos são 6,<br>
você tem o resultado obtido.<br>
<br>
[]'s<br>
<br>
Em 21 de julho de 2010 21:31, "Flávio R. Lopes"<br>
<<a href="mailto:flavio.lopes@links.inf.br" target="_blank">flavio.lopes@links.inf.br</a>> escreveu:<br>
<br>
<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
Olá pessoal.<br>
<br>
Num dos exercícios que estou fazendo, uma das soluções (pelo menos que<br>
estou<br>
imaginando) seria colocar o conteúdo de um array dentro de um hash, mas<br>
quando os elementos são repetidos, só insere a primeira instância do<br>
elemento.<br>
<br>
Supondo um array com os elements:<br>
<br>
my @numeros = (1, 2, 3, 4, 5, 6, 6, 6, 5);<br>
<br>
my %hash = map { $_ => $_ } @numeros;<br>
<br>
while ( my ($chave, $valor) = each %hash ) {<br>
<br>
say "$chave => $valor";<br>
<br>
}<br>
<br>
<br>
Tenho como saída:<br>
6 => 6<br>
4 => 4<br>
1 => 1<br>
3 => 3<br>
2 => 2<br>
5 => 5<br>
<br>
<br>
Porque os outros dois elementos "6" e o último elemento "5" não são<br>
armazenados dentro do hash?<br>
Gostaria que produzisse a seguinte saída (como todos os 9 elementos do<br>
array):<br>
<br>
6 => 6<br>
6 => 6<br>
6 => 6<br>
4 => 4<br>
1 => 1<br>
3 => 3<br>
2 => 2<br>
5 => 5<br>
5 => 5<br>
<br>
Onde estou errando?<br>
<br>
Abraço,<br>
Flávio<br>
<br>
<br>
<br>
_______________________________________________<br>
SaoPaulo-pm mailing list<br>
<a href="mailto:SaoPaulo-pm@pm.org" target="_blank">SaoPaulo-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a><br>
<br>
<br>
<br>
</blockquote>
<br>
<br>
<br>
</blockquote>
_______________________________________________<br>
SaoPaulo-pm mailing list<br>
<a href="mailto:SaoPaulo-pm@pm.org" target="_blank">SaoPaulo-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a><br>
<br>
</blockquote>
<br>
<br>
<br>
</blockquote>
<br>
_______________________________________________<br>
SaoPaulo-pm mailing list<br>
<a href="mailto:SaoPaulo-pm@pm.org" target="_blank">SaoPaulo-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a><br>
</div></div></blockquote></div><br><br clear="all"><br>-- <br>Bruno C. Buss<br><a href="http://brunobuss.wordpress.com/">http://brunobuss.wordpress.com/</a><br><a href="http://www.dcc.ufrj.br/~brunobuss/">http://www.dcc.ufrj.br/~brunobuss/</a><br>
</div>