[SP-pm] Remover a primeira linha de arquivo com Perl

[Stanislaw Pusep]

$ perl -MO=Deparse -pi -e '$_ = "" if ($. == 1);'
BEGIN { $^I = ""; }
LINE: while (defined($_ = <ARGV>)) {
    $_ = '' if $. == 1;
}
continue {
    die "-p destination: $!\n" unless print $_;
}
-e syntax OK

ABS()



2012/9/2 Jose Nilton <jniltinho em gmail.com>

>
> Olá todos,
>
> Estou precisando remover a primeira linha de um arquivo de texto.
>
> Achei esse link:
>
> http://www.unix.com/unix-dummies-questions-answers/17622-how-remove-first-line-flat-file.html
>
> perl -pi -e '$_ = "" if ($. == 1);' filename
>
> Como posso colocar isso no meu código ?
>
> Obrigado
>
>
> --
>
> ..............................................................................
> *Com Deus todas as coisas são possíveis* ::: LinuxPro<http://www.linuxpro.com.br>
>
> *"A qualidade nunca se obtém por acaso; ela é sempre o resultado do
> esforço inteligente." (John Ruskin)
> "A mente que se abre a uma nova ideia jamais volta ao seu tamanho
> original" (Albert Einstein)*
>
>
> =begin disclaimer
>    Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
>  SaoPaulo-pm mailing list: SaoPaulo-pm em pm.org
>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
> =end disclaimer
>
>
-------------- Pr�xima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20120902/ebcc0fb2/attachment.html>