Repetindo q não vale... mas do mesmo tamanho q aquele q retornava um undef a mais:<br><br>sub drop{$a=$!if($!=shift)>0;@_>1?@_[$a..$#_]:substr"@_",$a}<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:25, Fernando Oliveira <span dir="ltr"><<a href="mailto:fernandocorrea@gmail.com">fernandocorrea@gmail.com</a>></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>sub drop{$a=@_[0];$a=0if$a<0;@_>2?@_[$a..@_]:substr$_[1],$a}</div></blockquote></div><br>