Muster ersetzen - #72942 (Allgemeines zu Perl)

Gast Gast

2007-01-08 14:23

Hallo,

ich habe zwei Textdateien, die ungefähr so aussehen:

Code: (dl )

1
2
3

geht-V
zu-VPART
weit-ADJ

und

Code: (dl )

1
2

geht zu weit
geht einen Schritt zu weit

Ich möchte, dass mein Perlprogramm die Wörter aus der zweiten Datei durch die entsprechenden Buchstaben aus der ersten Datei ersetzt (z.B.: V VPART ADJ) und in eine neue Datei schreibt.

Mein Versuch funktioniert nicht:

Code: (dl )

open (DATEI1, <$datei1) or die $!;

while (<DATEI1>) {
    foreach (/([a-zA-Z]+)-([A-Z]+)/) {
        open  (<DATEI2, $datei2) or die $!;
        open  (>DATEI3, $datei3) or die $!;
        s/$1/$2/g;
    }
    print DATEI3;
}