Dateien dursuchen mit Dateiliste.

[Manfred Kuhn]

Hallo zusammen.

Stehe gerade vor einem Problem und weiss nicht weiter, hoffe ihr könnt mir ein bisschen helfen.

Zu meinem Problem:
Ich habe eine txt-Datei in der mehrere Dateinamen aufgelistet sind (ein Dateiname pro Zeile).
Nun möchte ich die txt-Datei durchlaufen lassen und nacheinander die Dateien öffnen und diese durchsuchen. Leider bekomme ich eine Fehlermeldung.

Mein Code (ungetestet):

#!/usr/bin/perl -w
my $dateiliste = "dateiliste.txt";
my $dateiname;
my $suche;
my $suchwort = "Doktor";
open my $holedateinamen, "<", $dateiliste;
while ($dateiname = <$holedateinamen>)
{
        open my $durchsuchen, "<", $dateiname;
        while ($suche = <$durchsuchen>)
        {
                 if ($suche =~ /$suchwort/)
                 {
                         print "Treffer";
                 }
        }
        close $durchsuchen;
}
close $holedateinamen;

--------

Ich bekomme im Interpreter folgende Fehlermeldung:
readline() on closed filehandle $durchsuchen ...

Wo liegt der Fehler?

Herzlichen Dank im vorraus.

MfG Kuhn.