Opendir Ausgabe sortieren

[Beat]

opendir(DIR, ".") or die "access denied to $dir";

uh böse. WTF ist gerade '.'

my @Verzeichnisinhalt = grep {!/^./} sort readdir(DIR);
closedir(DIR);

Ich habe nun alles Mögliche durch gelesen, jedoch finde ich die Funktion nicht, welche mir die Ausgabe so sortiert, dass zuerst alle Ordner in alphabetischer und dann alle Dateien in alphabetischer Reihenfolge ausgegeben werden.

iteriere über die Liste und mache die entsprechenden Filetests.
katalogisiere $_ über einen Hash, dessen Keys du sortieren kannst.
Je nach Absicht willst du eh erweiterte Filetests vornehmen.
Du willst vor allem nicht versehentlich Files exekutieren, die zwar wie Textfiles benannt sind, sich aber als EXEs oder Shortcuts verhalten.

mfg Beat