<div dir="ltr"><br><br><div class="gmail_quote">2008/8/14 Adriano Ferreira <span dir="ltr">&lt;<a href="mailto:aferreira@shopzilla.com">aferreira@shopzilla.com</a>&gt;</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 &lt;<a href="mailto:luismottacampos@yahoo.co.uk">luismottacampos@yahoo.co.uk</a>&gt;:<br>
<div class="Ih2E3d">&gt; caio ariede wrote:<br>
&gt;&gt;<br>
&gt;&gt; Olá.<br>
&gt;&gt;<br>
&gt;&gt; Estava pesquisando, em como passar um array por parâmetro para uma<br>
&gt;&gt; subrotina, cheguei ao código abaixo, que por sinal não sei se esta<br>
&gt;&gt; totalmente correto:<br>
&gt;&gt;<br>
&gt;&gt; sub calculate<br>
&gt;&gt; {<br>
&gt;&gt; &nbsp; &nbsp;my $linha_a &nbsp;= shift;<br>
&gt;&gt; &nbsp; &nbsp;my $matriz_a = shift;<br>
&gt;&gt; &nbsp; &nbsp;my $matriz_b = shift;<br>
&gt;&gt;<br>
&gt;&gt; &nbsp; &nbsp;@matriz_a = @{$matriz_a};<br>
&gt;&gt; &nbsp; &nbsp;@matriz_b = @{$matriz_b};<br>
&gt;&gt; }<br>
<br>
</div>Ou ainda melhor, usando @{ +shift }<br>
<div class="Ih2E3d"><br>
sub calculate {<br>
&nbsp;my $linha_a = shift;<br>
&nbsp;my @matriz_a = @{ +shift };<br>
&nbsp;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 &quot;@shift&quot; requires explicit package name at -e line ...<br>
<br>
que lhe avisam que &quot;@{shift}&quot; 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>
&gt;&gt; Gostaria de saber se tem alguma forma alternativa pra fazer o @matriz_a =<br>
&gt;&gt; @{$matriz_a};<br>
&gt;<br>
&gt; Você sempre pode fazer tudo de uma vez só:<br>
&gt;<br>
&gt; sub calculate {<br>
&gt; &nbsp;my $linha_a = shift;<br>
&gt; &nbsp;my @matriz_a = @{ shift };<br>
&gt; &nbsp;my @matriz_b = @{ shift };<br>
&gt; }<br>
&gt;<br>
&gt; Putamplexos!<br>
&gt; --<br>
&gt; Luis Motta Campos is a software engineer,<br>
&gt; Perl Programmer, foodie and photographer.<br>
&gt; _______________________________________________<br>
&gt; SaoPaulo-pm mailing list<br>
&gt; <a href="mailto:SaoPaulo-pm@pm.org">SaoPaulo-pm@pm.org</a><br>
&gt; <a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a><br>
&gt;<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>