Perl - Textverarbeitung

[Struppi]

open(FILE1, $ARGV[0])|| die "could not open file";

wo die einträge gespeichert sind

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

Felder enthält jetzt nur die Einträge aus der letzten Zeile. wenn di Datei nur ein Zeile enthält reicht durchaus:

my chomp( @felder = split /,/, <FILE1>);

open(FILE2, $ARGV[1])|| die "could not open file";
#file 2 ist die textdatei
while (<FILE2>)

was muss ich jetzt weiter machen?

Erstmal das Suchmuster erzeugen:
my $pattern = join '|', map quotemeta, @felder;

und dann je nach dem wie gross dei Datei ist, entweder auf jede Zeile anwenden oder die Datei einlesen und in einem Rutsch ersetzen:

while (<FILE2>)
{
chomp;
s/($pattern)/<mark>$1</mark>/g;
push @file, $_;
}

Struppi.