Guten Abend,

ich suche eine Möglichkeit aus einer großen Textdatei (ca.80000 Zeilen) die Zeilen mit folgendem Inhalt zu löschen:

VKORG/VTWEG 0120 03
VKORG/VTWEG 0130 01
VKORG/VTWEG 0130 03
VKORG/VTWEG 0140 01
VKORG/VTWEG 0140 03

wobei die Zahlen unterschiedlich sind, aber immer in dieser Reihenfolge, Text Leer 4 Zahlen Leer 2 Zahlen.

Mir fehlt das patternmuster.

#! /usr/bin/perl
use strict; # siehe perldoc strict
use warnings;

my $input = 'c:/wgt.txt';
my $output = 'c:/wgt_neu.txt';
my $pattern =;
my $ersatz = "";

open(IN,"<$input") or die $!;
my @lines = <IN>;
close IN;

open(WRITE,">$output") or die $!;
foreach my $line(@lines){
$line =~ s/\Q$pattern\E/$ersatz/g;
print WRITE $line;
}
close WRITE;

Kann mir bitte jemand helfen?

Danke und Gruß
Walli

Sollte einzeilig gehen:
EDIT: gelöscht, siehe unten.\n\n

<!--EDIT|Ronnie|1184528182-->

Hallo Ronnie,

danke für die schnelle Antwort.
Ich bekomme folgenden Fehler

Can't find string terminator "'" anywhere before EOF at -e line 1.

Sorry, probiere es mal so:

es kommt zwar kein Fehler, aber ersetzt wird nichts.

Wenn einfach nur irgendwo in der Zeile die Zeichenfolge steht, dann:

es kommt kein Fehler, aber ersetzt wird nichts

Danke, das hat geklappt.
Könntest Du mir die Zeile bitte mal erläutern?

Walli

Es wird alles aus der Datei file in die Datei file.new geschrieben, wenn nicht der match-Befehl zutrifft.