Perl: Wie entferne ich die erste Zeile einer Datei, ohne ganze Datei zu lesen und zu kopieren

Question

Ich habe eine ganze Reihe von Dateien in einem Verzeichnis und von jeder Datei möchte ich die erste Zeile entfernen (einschließlich Wagenrücklauf). Ich kann die ganze Datei in ein Array von Strings lesen und alle außer dem ersten Element in eine neue Datei schreiben, aber das sieht für mich etwas umständlich aus, gibt es bessere Möglichkeiten? Oh, die bevorzugte Sprache ist Perl.

Answer 1

Versuchen Sie diesen Einzeiler

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

ich es vorher verwendet haben, sollte alles, was Sie sein müssen.

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 

Dies ist ähnlich der Antwort von Stocherilac.

Aber in jedem Fall (und in allen anderen Antworten gegeben!) Sie lesen immer die vollständige Datei. Keine Möglichkeit, das zu vermeiden, AFAIK.

Answer 4

Wie wäre es

tail +2 

in der Schale?

(edit: in neueren Linux können Sie benötigen tail -n +2 (danke, GNU :()!)

Answer 5

Oh die gewünschte Sprache ist Perl

Manchmal sed ein sed besser als. sogar perl:

sed -i 1d * 

Answer 6

Wie Schwern wies darauf hin, hat die folgende nicht einen frühzeitigen Ausstieg durchführen, wie ich ursprünglich gedacht hatte, es würde:

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

Scheint wie ein kann nicht vermeiden Verarbeitung der gesamten Datei, nachdem alle.