Hi Rene,

erstmal danke aber irgendwie schein da ein wurm im skript zu sein funz. nämlich nicht. Meckert syntax fehler in der while schliefe.

Hier nochmal der ganze code:
use strict;
my (@dirs,@files);
my $entry;
my $file;
opendir(PFAD, "c:\\perl")
while(my $entry = readdir(PFAD))
{
push(@dirs,$entry) if(-d $entry);
push(@files,$entry) if(-f $entry);
}
closedir(PFAD);

foreach $file (@files)
{
print "$file ";
}

Quote

Quote