Tree von Verzeichnissen und Datein anzeigen

[Ark]

hiho!

Es gibt in Perl eine ganz einfache Möglichkeit,
ein Verzeichnis mit allen Unterverzeichnissen und Dateien anzuzeigen.
Das ganze kann als TREE dargestellt werden (wie unterhalb dargestellt),
so dass also Verbindungslinien entstehen.

Leider finde ich das Script nicht mehr dazu.
Ich hab aber noch im Kopf dass es grad mal 5 oder 10 Zeilen lang war,
also nichts komplzizieres.

Weiters habe ich schon mit File::Find herum experimentiert,
aber ich glaube das hilft weniger, zumindest komme ich damit auf keine Lösung.

Dangge :P
  Ark

Es sollte so aussehen:

maindir/
  |---subdir1/
  |---subdir2/
  +       |-----subsubdir1/
  +                 |-------write.doc
  +                 +-+-----blue.doc
  +---subdir3/

Lorem
  |---ipsum.txt
  |---dolar.doc
  +---sit/

foo
  |---bar/
       |---xyz.xls
       |    +----hsdafjk.txt
       +---abc/
  |---bleh/
  +---baz/