Verzeichniss auslesen (nur Dateien)

[Klaus Mock]

Hallo Peter,

opendir(DIR,$dir);

besser:
opendir DIR, $dir or die "kann Verzeichnis nicht lesen: $!";

foreach $file (readdir(DIR))
{
[..]

besser:

my $count = 0;
while(defined(my $file = readdir DIR)) {
  next unless -f $file;
  print $file;
  $count++;
}

Alles schön und gut, nur den Kern des Problems trifft das da nicht, da $file _nicht_ der Pfad zum File ist, solange $dir nicht leer ist:-(
Tja, oft sioeht man den Wald vor lauter Bäume, äh, den Fehler vor lauter Fehlerbehandlungen, nicht:-)

Grüße
  Klaus