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