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!