Dateien dursuchen mit Dateiliste.

[Struppi]

Mein Code (ungetestet):

#!/usr/bin/perl -w

use strict;

wäre noch gut.

my $dateiliste = "dateiliste.txt";
my $dateiname;
my $suche;
my $suchwort = "Doktor";
open my $holedateinamen, "<", $dateiliste;

Hier solltest du natürlich testen, ob open erfolgreich war:
open my $holedateinamen, "<", $dateiliste || die "Kann *$dateiliste* nicht öffnen. Grund: $!";

while ($dateiname = <$holedateinamen>)
{
        open my $durchsuchen, "<", $dateiname;

Hier genauso.
open my $durchsuchen, "<", $dateiname|| die "Kann *$dateiname* nicht öffnen. Grund: $!";

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

Wo liegt der Fehler?

Das müßte die Meldung sagen.

Struppi.