<div dir="ltr"><br><br><div class="gmail_quote">2008/8/14 Adriano Ferreira <span dir="ltr"><<a href="mailto:aferreira@shopzilla.com">aferreira@shopzilla.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;">
2008/8/14 Luis Motta Campos <<a href="mailto:luismottacampos@yahoo.co.uk">luismottacampos@yahoo.co.uk</a>>:<br>
<div class="Ih2E3d">> caio ariede wrote:<br>
>><br>
>> Olá.<br>
>><br>
>> Estava pesquisando, em como passar um array por parâmetro para uma<br>
>> subrotina, cheguei ao código abaixo, que por sinal não sei se esta<br>
>> totalmente correto:<br>
>><br>
>> sub calculate<br>
>> {<br>
>> my $linha_a = shift;<br>
>> my $matriz_a = shift;<br>
>> my $matriz_b = shift;<br>
>><br>
>> @matriz_a = @{$matriz_a};<br>
>> @matriz_b = @{$matriz_b};<br>
>> }<br>
<br>
</div>Ou ainda melhor, usando @{ +shift }<br>
<div class="Ih2E3d"><br>
sub calculate {<br>
my $linha_a = shift;<br>
my @matriz_a = @{ +shift };<br>
my @matriz_b = @{ +shift };<br>
}<br>
<br>
</div>que vai livrá-lo de warnings como estes<br>
<br>
Ambiguous use of @{shift} resolved to @shift at -e line ...<br>
Global symbol "@shift" requires explicit package name at -e line ...<br>
<br>
que lhe avisam que "@{shift}" será o mesmo que @shift.</blockquote><div>Eu acho mais legivel assim:<br><br>@{ shift() } <br></div><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
<br>
<div><div></div><div class="Wj3C7c"><br>
>> Gostaria de saber se tem alguma forma alternativa pra fazer o @matriz_a =<br>
>> @{$matriz_a};<br>
><br>
> Você sempre pode fazer tudo de uma vez só:<br>
><br>
> sub calculate {<br>
> my $linha_a = shift;<br>
> my @matriz_a = @{ shift };<br>
> my @matriz_b = @{ shift };<br>
> }<br>
><br>
> Putamplexos!<br>
> --<br>
> Luis Motta Campos is a software engineer,<br>
> Perl Programmer, foodie and photographer.<br>
> _______________________________________________<br>
> SaoPaulo-pm mailing list<br>
> <a href="mailto:SaoPaulo-pm@pm.org">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>
SaoPaulo-pm mailing list<br>
<a href="mailto:SaoPaulo-pm@pm.org">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>Just another Perl Hacker,<br>Fernando (SmokeMachine)<br><a href="http://perl-e.org">http://perl-e.org</a><br>
</div>