push @juncao_elementos, @array1, @array2;<div><br><div class="gmail_quote">2010/7/21 &quot;Flávio R. Lopes&quot; <span dir="ltr">&lt;<a href="mailto:flavio.lopes@links.inf.br">flavio.lopes@links.inf.br</a>&gt;</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 { $_ =&gt;  { $_ =&gt;  ++$_{$_} } } @numeros;<br>
<br>
print Dumper %hash;<br>
<br>
&lt;resultado&gt;mantovani@mantovani-desktop:~$ perl <a href="http://foo.pl" target="_blank">foo.pl</a><br>
$VAR1 = &#39;6&#39;;<br>
$VAR2 = {<br>
           &#39;6&#39; =&gt;  3<br>
         };<br>
$VAR3 = &#39;4&#39;;<br>
$VAR4 = {<br>
           &#39;4&#39; =&gt;  1<br>
         };<br>
$VAR5 = &#39;1&#39;;<br>
$VAR6 = {<br>
           &#39;1&#39; =&gt;  1<br>
         };<br>
$VAR7 = &#39;3&#39;;<br>
$VAR8 = {<br>
           &#39;3&#39; =&gt;  1<br>
         };<br>
$VAR9 = &#39;2&#39;;<br>
$VAR10 = {<br>
            &#39;2&#39; =&gt;  1<br>
          };<br>
$VAR11 = &#39;5&#39;;<br>
$VAR12 = {<br>
            &#39;5&#39; =&gt;  2<br>
          };<br>
&lt;/resultado&gt;<br>
<br>
<br>
2010/7/21 &quot;Flávio R. Lopes&quot;&lt;<a href="mailto:flavio.lopes@links.inf.br" target="_blank">flavio.lopes@links.inf.br</a>&gt;:<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>
[]&#39;s<br>
<br>
Em 21 de julho de 2010 21:31, &quot;Flávio R. Lopes&quot;<br>
&lt;<a href="mailto:flavio.lopes@links.inf.br" target="_blank">flavio.lopes@links.inf.br</a>&gt;    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 { $_ =&gt;    $_ } @numeros;<br>
<br>
  while ( my ($chave, $valor) = each %hash ) {<br>
<br>
        say &quot;$chave =&gt;    $valor&quot;;<br>
<br>
  }<br>
<br>
<br>
Tenho como saída:<br>
6 =&gt;    6<br>
4 =&gt;    4<br>
1 =&gt;    1<br>
3 =&gt;    3<br>
2 =&gt;    2<br>
5 =&gt;    5<br>
<br>
<br>
Porque os outros dois elementos &quot;6&quot; e o último elemento &quot;5&quot; 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 =&gt;    6<br>
6 =&gt;    6<br>
6 =&gt;    6<br>
4 =&gt;    4<br>
1 =&gt;    1<br>
3 =&gt;    3<br>
2 =&gt;    2<br>
5 =&gt;    5<br>
5 =&gt;    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>