Verzeichniss als auswahl darstellen

[Calocybe]

Hi!

jetzt muß ich nur noch die Anzeigen der Verzeichnisse drüber wegbekommen: . ..

@dirs = grep(!/^..?$/, @dirs);
oder
  use File::Spec ();
  @dirs = grep(-d, File::Spec->no_upwards(readdir(DIR)));
oder
  print($file) if (-d($file) && $file !~ /^..?$/);
oder
  ...

TA(S)MWTDI (there are (so) many ways to do it)

So long