Code:

foreach $file (@files){

next if !

open (FILE, "<$file")

;

while (<FILE>){ ... [Datei auslesen] } close(FILE); }

Du muss prüfen, ob die Datei geöffnet wurde. Steht irgendwo in den 10 Geboten ....

Gruss

Jens Puruckherr

On Tue, Feb 17, 2004 at 12:23:44PM +0100, Peter Keller wrote:

Hi,

ich habe ein Problem mit PERL. Ich lese aus einem Verzeichnis Dateien in ein Array (@files). Nun öffne ich nacheinander diese Dateien und möchte sie gern auslesen. Bei den ersten zwei oder drei (manchmal auch mehr) macht er dies ohne Probleme, bei den nächsten bringt er aber folgenden Fehler:

readline() on closed filehandle FILE

Was habe ich wahrscheinlich falsch gemacht? Ich habe schon gegooglet, hab aber keine Lösung gefunden.

Peter

Code:

foreach $file (@files){ open (FILE, "<$file");

mach doch hier mal: open(FILE, "<$file") or die("Can't open $file: $!\n"); oder kürzer open FILE, $file or die "Can't open $file: $!\n";

Heiko