<div>$ perl -MO=Deparse -pi -e '$_ = "" if ($. == 1);'</div><div>BEGIN { $^I = ""; }</div><div>LINE: while (defined($_ = <ARGV>)) {</div><div>    $_ = '' if $. == 1;</div><div>}</div>

<div>continue {</div><div>    die "-p destination: $!\n" unless print $_;</div><div>}</div><div>-e syntax OK</div><br>ABS()<br><br>
<br><br><div class="gmail_quote">2012/9/2 Jose Nilton <span dir="ltr"><<a href="mailto:jniltinho@gmail.com" target="_blank">jniltinho@gmail.com</a>></span><br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">

<br>Olá todos,<br><br>Estou precisando remover a primeira linha de um arquivo de texto.<br><br>Achei esse link:<br><a href="http://www.unix.com/unix-dummies-questions-answers/17622-how-remove-first-line-flat-file.html" target="_blank">http://www.unix.com/unix-dummies-questions-answers/17622-how-remove-first-line-flat-file.html</a><br>


<br><acronym title="Practical Extraction and Report Language">perl</acronym> -pi -e '$_ = "" if ($. == 1);' filename<br><br>Como posso colocar isso no meu código ?<br><br>Obrigado<span class="HOEnZb"><font color="#888888"><br>

<br clear="all"><br>
-- <br>..............................................................................<br><b>Com Deus todas as coisas são possíveis</b> ::: <a href="http://www.linuxpro.com.br" target="_blank">LinuxPro</a><br><br><i><font size="1">"A qualidade nunca se obtém por acaso; ela é sempre o resultado do esforço inteligente." (John Ruskin)<br>


"A mente que se abre a uma nova ideia jamais volta ao seu tamanho original" (Albert Einstein)</font></i><br><br>
</font></span><br>=begin disclaimer<br>
   Sao Paulo Perl Mongers: <a href="http://sao-paulo.pm.org/" target="_blank">http://sao-paulo.pm.org/</a><br>
 SaoPaulo-pm mailing list: <a href="mailto:SaoPaulo-pm@pm.org">SaoPaulo-pm@pm.org</a><br>
 L<<a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a>><br>
=end disclaimer<br>
<br></blockquote></div><br>