Alle Verzeichnisse Verzeichnisse in Datei ausgeben - #74156 (Allgemeines zu Perl)

wiederlader

2007-02-09 17:24

User since
2007-01-03
36 Artikel
BenutzerIn
[default_avatar]

So, nachdem ich das File::Find Modul an einem kleinen Unterverzeichnis umfangreich erfolgreich getestet habe, habe ich es über das komplette LW D: suchen lassen.

Code: (dl )

find(\&wanted,"d:");

Dabei ist folgende Fehlermeldung aufgeschlagen:

Can't opendir(d:/System Volume Information): Invalid argument

Wie kann ich die Suche des Unterverzeichnisses (d:/System Volume Information) unterbinden/ausschließen?

Kann man der Subroutine

Code: (dl )

1
2
3

sub wanted{
   push @dirs,$File::Find::name if -d $File::Find::name;
}

noch eine bestimmte Option mitgeben (sowie mit -d nur nach Verzeicnnisse gesucht wird)?