Perl: Jak usunąć pierwszą linię pliku bez czytania i kopiowania całego pliku

Question

Mam całą masę plików w katalogu i z każdego pliku, który chcę usunąć pierwszy wiersz (łącznie z powrotem karetki). Czytam cały plik w tablicy łańcuchów i zapisuję wszystkie oprócz pierwszego elementu do nowego pliku, ale wydaje mi się to nieco kłopotliwe, czy istnieją lepsze sposoby? Och, preferowanym językiem jest Perl.

Answer 1

Spróbuj jedną wkładkę

perl -pi -e '$_ = "" if ($. == 1);' filename 

znam go wcześniej, powinno być wszystko, czego potrzebujesz.

Answer 2

use Tie::File qw(); 
for my $filename (glob 'some_where/some_files*') { 
    tie my @file, 'Tie::File', $filename or die "Could not open $filename: $!"; 
    shift @file; 
} 

Answer 3

perl -n -i -e 'print unless $. == 1' myfile 

Jest to podobne do odpowiedzi stocherilaca.

Ale w każdym przypadku (i we wszystkich innych udzielonych odpowiedziach!) Zawsze czytasz pełny plik. Nie można tego uniknąć, AFAIK.

Answer 4

Jak o

tail +2 

w skorupkach?

(edit: w nowszej Linux może trzeba tail -n +2 (dziękuję, GNU :()!)

Answer 5

OH język preferowana jest Perl

Czasami sed jest lepiej niż sed. nawet Perl:

sed -i 1d * 

Answer 6

Jak podkreślił Schwern następujące robi nie wykonać wczesne wyjście, jak się początkowo wydawało, że będzie:

perl -pi -e '$_ = q// and last if $. == 1;' myFile 

Wydaje się jeden nie może unikać przetwarzania cały plik po wszystkim.