<div>
<blockquote class="gmail_quote" style="PADDING-LEFT: 1ex; MARGIN: 0px 0px 0px 0.8ex; BORDER-LEFT: #ccc 1px solid"><br>> So + uma duvida..<br><br> /me lança um olhar de reprovação sobre todos os membros desta<br>lista de discussão que não se preocuparam em mudar o tópico das
<br>mensagens, acompanhando a mudança de assunto e ao mesmo tempo<br>permitindo que a lista continue se organizando por threads e assuntos.<br><br> (Relaxa, Patty, que desta vez quem pisou no tomate foram as<br>"raposas" da lista... eheheheh)
<br><br>> em minha subrotina eu tento passar assim:<br>> my ($ids,@datas,$variavels)=@_;<br>> |______________________<br>><br>> |<br>> Minha duvida eh.. eu posso passar um ARRAY??
</blockquote>
<div> </div>
<div><font face="courier new,monospace">Patty, subrotinas sempre recebem através do array @_, sendo assim se vc colocar o primeiro ou o segundo elemento de passagem de parametros como array, todos o resto será confundido dentro o primeiro, ou segundo array. Confuso ?
</font></div>
<div><font face="Courier New"></font> </div>
<div><font face="Courier New">Vc está dizendo algo assim : me passe um elemento, depois me passe uma lista de elementos de qualquer tamanho e por último me passe um elemento... mas como assim, se o compilador passou todos os elementos no segundo ítem. Mas claro ? Espero :)
</font></div><br>
<blockquote class="gmail_quote" style="PADDING-LEFT: 1ex; MARGIN: 0px 0px 0px 0.8ex; BORDER-LEFT: #ccc 1px solid"> Patty, em Perl a gente pode fazer praticamente qualquer coisa.<br> O problema é saber se interessa.<br>
<br> Isso que você quer fazer é possível (desafio: alguém sabe COMO<br>fazer? FGlock: você, não vale...), mas pode ficar chato de entender<br>para outras pessoas.<br><br> Existem duas possibilidades para resolver este problema:
</blockquote>
<div> </div>
<div><font face="courier new,monospace">Ou três, que tal utilizar hash para a passagem de parametros ? Tipo assim :</font></div>
<div><font face="Courier New"><codigo></font></div>
<div><font face="Courier New">my %hash = ( id => $ids,<br> datas => \@datas,<br> variaveis => $variaveis );</font></div>
<div>
<p>subrotina (\%hash);</p>
<p>sub subrotina {<br> my $argumento = shift;<br> <br> die 'Invalido argumento, esperado uma referencia de hash' if<br> ref $argumento ne 'HASH';<br> <br> print "$argumento->{id}\n";
<br> foreach ( $argumento->{datas} ) {<br> print "$_\n";<br> }<br> print "$argumento->{variaveis}\n";<br>}<br></p></div>
<div><font face="Courier New"></codigo></font></div></div>