Verzeichniss auslesen (nur Dateien)

[Peter Squentz]

Hallo nochmal,

nunächst mal fühle ich mich ein bisschen geehrt das mir der Chef persönlich antwortet ;)... aber leider funktioniert das nicht so richtig...

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++;
}

Peter