Frank Schönmann: Verzeichnisbaum

Beitrag lesen

hi!

wie kann ich in Perl VErzeichnisse und Unterverzeichnisse durchsuchen, und alle
Dateinamen und Verzeichnisnamen auflisten bzw. in einem Array abspeichern

Kein Problem mit ein bisschen Rekursion:

=== cut ===
#!/usr/bin/perl

&subDirs(".");

sub subDirs
{
  $Verzeichnis .= "/$_[0]";
  $Verzeichnis =~ s/^///;
  chdir "$_[0]";
  for (<*>)
  {
    print "$Verzeichnis/$_\n" if !-d;
    &subDirs($_) if -d;
    $Verzeichnis =~ s/^/// if -d;
  }
  chdir "..";
  $Verzeichnis = "/" . $Verzeichnis;
  $Verzeichnis =~ s//[^/]*$//;
}
=== cut ===

bye, Frank!