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> 1 #!/usr/bin/perl<br>
2 use strict;<br> 3 use warnings;<br> 4 <br> 5 my @array = qw(pato porco cavalo galo vaca);<br> 6 my %hash = ( pato => "quac",<br> 7 porco => "oinc",<br> 8 cavalo => "rinch",<br>
9 galo => "co-coro-co-coo",<br> 10 boi => "muuu",);<br> 11 <br> 12 my $arrayReferencia = \@array;<br> 13 my $hashReferencia = \%hash;<br> 14 <br> 15 sub returnReferencia {<br> 16 return \@array;<br>
17 }<br> 18 <br> 19 print ${returnReferencia()}[0];<br> 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->{ 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>[]'s<br><br>"Você sempre pode achar uma prática muito boa verificar suas referências, senhor!"<br>Dr.Routh<br clear="all"><br>-- <br>print "\x54\x68\x65\x20\x53\x69\x6c\x65\x6e\x74\x20\x47\x75\x61\x72\x64\x69\x61\x6e",$/<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>