Dateien dursuchen mit Dateiliste.

[Patrick Andrieu]

Hallo Struppi!

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

Der Richtigkeit halber:

|| nur mit Klammerung für open (Präzedenz)! Im folgenden existiert a.txt nicht:

C:>perl -w

open FH, "<", "a.txt" || die "Kann *a.txt* nicht öffnen. Grund: $!";  
while(<FH>) { print }

^Z
readline() on closed filehandle FH at - line 2.

Dagegen:

C:>perl -w

open FH, "<", "a.txt" or die "Kann *a.txt* nicht öffnen. Grund: $!";  
while(<FH>) { print }

^Z
Kann *a.txt* nicht öffnen. Grund: No such file or directory at - line 1.

oder:

C:>perl -w

open (FH, "<", "a.txt") || die "Kann *a.txt* nicht öffnen. Grund: $!";  
while(<FH>) { print }

^Z
Kann *a.txt* nicht öffnen. Grund: No such file or directory at - line 1.

Viele Grüße aus Frankfurt/Main,
Patrick