Suchen und Löschen von Zeilen weniger als X Zeichen lang

Question

ich eine Liste von Elementen in einer Datei haben,

foobar 
barfoo 
bar 
faaboo 
foo 
boofar 
fo 
b 

Perl, ich bin gerade nach Skript, das durch den Dateinamen gehen und alle Gegenstände 3 Zeichen löschen oder weniger. Überschreibe den vorhandenen Dateinamen (ohne einen neuen oder temporären Dateinamen zu erstellen), damit wird die Liste werden.

foobar 
barfoo 
faaboo 
boofar 

Answer 1

One-Liner:

perl -ine '{print if /.{4}/}' filename 

Sie können length verwenden (1 hinzufügen, für Newline-Zeichen) statt regex wenn das Ihre Phantasie ist, wie Jonathan Leffler in den Kommentaren darauf hingewiesen - es ist wahrscheinlich schneller auf sehr große Dateien. Hier ist eine Windows-Version (beachten Sie die Verwendung von doppelten Anführungszeichen erforderlich durch cmd statt einfache Anführungszeichen):

perl.exe -i.bak -n -e "{print if length > 4}" filename 

Auch Ihr Kommentar zu beantworten, leider Sie kann nicht ohne eine Sicherung in-place -i Änderungen unter Windows ausführen Datei. Eine detaillierte Erklärung finden Sie unter to this SO post (wiederum Windows-Beschränkung, nicht Perls) sowie eine Problemumgehung.

Answer 2

Tie::File

use warnings; 
use strict; 
use Tie::File; 

my $file = shift; 
tie my @array, 'Tie::File', $file or die; 
@array = grep { length > 3 } @array; 
untie @array;