Essa resposta, além de não valer, tá retornando um undef a mais no caso do array...<br><br clear="all">Just another Perl Hacker,<br>Fernando (SmokeMachine)<br><a href="http://perl-e.org">http://perl-e.org</a><br>Sent from Rio De Janeiro, RJ, Brazil<br>


<br><br><div class="gmail_quote">Em 3 de fevereiro de 2010 19:18, Blabos de Blebe <span dir="ltr">&lt;<a href="mailto:blabos@gmail.com">blabos@gmail.com</a>&gt;</span> escreveu:<br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">

<div id=":261" class="ii gt">sub drop{$a=@_[0];$a=0if$a&lt;0;@_&gt;2?@_[$a..@_]:substr$_[1],$a}</div></blockquote></div><br>