Perl - Textverarbeitung

[andy]

Ich will nun das nur Montag markiert wird. Aber der script macht das nicht. Woran liegt der fehler?
vielen Dank,

Woher weißt du das nichts markiert wird?
Hast du dir das Array @file ausgeben lassen?

Struppi.

ja habe ich, am anfang hatte ich die erste zeile vergessen
open(FILE2, $ARGV[1])|| die "could not open file";
Aber trotzdem es wird nun jede Buchstabe markiert??
Bsp:<merk>h</mark><merk>e</mark><merk>e</mark><merk>t</mark><merk>e</mark>.

Die liste mit meine Einträge enthält viele Zeilen!

Was könnte schief gelaufen sein?

Danke

hier nochmal der Code:
open(FILE1, $ARGV[0])|| die "could not open file";

while(<FILE1>){
  chomp;
@Felder=split(/,/,$_);
}

my $pattern = join '|', map quotemeta, @felder;

open(FILE2, $ARGV[1])|| die "could not open file";
while (<FILE2>)
{
chomp;
s/($pattern)/<mark>$1</mark>/g;
push @file, $_;
print @file;
}