fernando@fernando-laptop:~$ perl -e '<br>sub rev {<br> @_ = reverse @_;<br>}<br><br>@lista = qw/1 2 3/;<br>print rev(@lista), $/;<br>'<br>321<br>fernando@fernando-laptop:~$ <br><br><br><div class="gmail_quote">2009/7/27 Eden Cardim <span dir="ltr"><<a href="mailto:edencardim@gmail.com">edencardim@gmail.com</a>></span><br>
<blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">2009/7/27 Giuliani Deon Sanches <<a href="mailto:giulianisanches@gmail.com">giulianisanches@gmail.com</a>>:<br>
<div class="im">> @Edenc: Não entendi direito a questão de "invocação do método", pois<br>
> eu faço isso no exemplo que passei. Na realidade aquela atribuição<br>
> usada (@lista = rev @lista) esta ali somente porque foi dessa forma<br>
> que funcionou. Inicialmente aquelas 3 linhas finais eram:<br>
><br>
> my @lista = (1, 2, 3);<br>
> rev @lista;<br>
> print @lista, "\n";<br>
<br>
</div>isso é um método:<br>
<br>
sub bar { $_[1] = 4 }<br>
<br>
pra "rodar" o código do método, ele precisa ser "invocado" com argumentos:<br>
<br>
bar(@foo);<br>
<br>
A "passagem de argumentos" faz com que os valores (de @foo) apareçam<br>
dentro do escopo do método. Existem algumas formas de se implementar<br>
isso, Perl, em particular, implementa isso usando passagem por<br>
referência, ou seja, o método obtém uma referência pros argumentos,<br>
não os valores em si, por isso, se você alterar os valores usando a<br>
referência (@_, no caso), vai modificar a variável original (que<br>
existe fora do escopo de bar()).<br>
<font color="#888888"><br>
--<br>
</font><div><div></div><div class="h5"> Eden Cardim Need help with your Catalyst or DBIx::Class project?<br>
Code Monkey <a href="http://www.shadowcat.co.uk/catalyst/" target="_blank">http://www.shadowcat.co.uk/catalyst/</a><br>
Shadowcat Systems Ltd. Want a managed development or deployment platform?<br>
<a href="http://edenc.vox.com/" target="_blank">http://edenc.vox.com/</a> <a href="http://www.shadowcat.co.uk/servers/" target="_blank">http://www.shadowcat.co.uk/servers/</a><br>
_______________________________________________<br>
Cascavel-pm mailing list<br>
<a href="mailto:Cascavel-pm@pm.org">Cascavel-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/cascavel-pm" target="_blank">http://mail.pm.org/mailman/listinfo/cascavel-pm</a><br>
</div></div></blockquote></div><br><br clear="all"><br>-- <br>Just another Perl Hacker,<br>Fernando (SmokeMachine)<br><a href="http://perl-e.org">http://perl-e.org</a><br>