Verzeichnis und Unterverzeichnisse auslesen

[Erwin]

Hallo,

ich will mit dem folgenden Script alle Verzeichnisse inkl. Unterverzeichnisse nach Daten durchsuchen und diese im Array @files abspeichern. Irgendwo steckt noch ein fehler drin, aber ich finde

Hmm. Wie wärs damit:

use File::Find;
my $startdir = '/usr/local';
my @files;
find(&scan, $startdir);

sub scan{
 if(-f $File::Find::name){ push @files, $File::Find::name }
}

fertisch

Erwin