golf! golf! golf! golf!
2012/9/2 Stanislaw Pusep <[email protected]>
> $ 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
>
explicitamente:
perl -e '$descarte = <>; while(<>) { print }' filename
implicitamente:
perl -pe 'BEGIN {<>}' filename
> ABS()
>
>
>
> 2012/9/2 Jose Nilton <[email protected]>
>
>>
>> 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: [email protected]
>> L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
>> =end disclaimer
>>
>>
>
> =begin disclaimer
> Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
> SaoPaulo-pm mailing list: [email protected]
> L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
> =end disclaimer
>
>
--
Alexei "RUSSOZ" Znamensky | russoz EM gmail com | http://russoz.org
GPG fingerprint = 42AB E78C B83A AE31 7D27 1CF3 C66F B5C7 71CA 9F3C
http://www.flickr.com/photos/alexeiz | http://github.com/russoz
"I don't know... fly casual!" -- Han Solo
=begin disclaimer
Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
SaoPaulo-pm mailing list: [email protected]
L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
=end disclaimer
