Por incrível que pareça eu achei pelo em ovo, o livro da Deitel existem coisas aproveitáveis, bom estou estudando referência antes de continuar meus estudos em em Perl Orientado a Objectos, quero tirar uma dúvida.<br><br>&nbsp; 1 #!/usr/bin/perl<br>
&nbsp; 2 use strict;<br>&nbsp; 3 use warnings;<br>&nbsp; 4 <br>&nbsp; 5 my @array = qw(pato porco cavalo galo vaca);<br>&nbsp; 6 my %hash = ( pato =&gt; &quot;quac&quot;,<br>&nbsp; 7&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; porco =&gt; &quot;oinc&quot;,<br>&nbsp; 8&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; cavalo =&gt; &quot;rinch&quot;,<br>
&nbsp; 9&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; galo =&gt; &quot;co-coro-co-coo&quot;,<br>&nbsp;10&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; boi =&gt; &quot;muuu&quot;,);<br>&nbsp;11 <br>&nbsp;12 my $arrayReferencia = \@array;<br>&nbsp;13 my $hashReferencia = \%hash;<br>&nbsp;14 <br>&nbsp;15 sub returnReferencia {<br>&nbsp;16&nbsp;&nbsp; return \@array;<br>
&nbsp;17 }<br>&nbsp;18 <br>&nbsp;19 print ${returnReferencia()}[0];<br>&nbsp;20 print $$arrayReferencia[0]<br><br>Para imprimir uma referencia você precisa derreferenciar( no livro ta escrito assim juro )<br><br>Existem duas maneiras que eu conheço:<br>
print $$hashReferencia{ pato }<br>ou<br>print $hashReferencia-&gt;{ pato }<br><br>no caso de uma sub rotina se faz que nem na linha 19, eu sei fazer, só que eu não sei o porque!<br><br>Alguém pode me dar uma explicação técnica?<br>
<br>Obrigado<br><br>[]&#39;s<br><br>&quot;Você sempre pode achar uma prática muito boa verificar suas referências, senhor!&quot;<br>Dr.Routh<br clear="all"><br>-- <br>print &quot;\x54\x68\x65\x20\x53\x69\x6c\x65\x6e\x74\x20\x47\x75\x61\x72\x64\x69\x61\x6e&quot;,$/<br>
<br>( Procuro emprego CV:<br><a href="http://www.4shared.com/file/71236573/2c80149/curriculo.html">http://www.4shared.com/file/71236573/2c80149/curriculo.html</a> )<br>