[E|B

,02.02.2004, 16:15]

Code: (dl )

1
2
3
4
5
6
7

use strict;
use warnings;
use File::Find;

my @file = ();
find(sub { push(@file, $File::Find::dir); }, "dir");
print "$_\n" for(@file);

File::Find durchsucht das Verzeichnis "dir" samt Unterverzeichnissen und steckt jedes File in den Array "@file". Mit einer Schleife kannst du nun prüfen, ob das betreffende File verfügbar ist. Natürlich könntest du die Überprüfung schon in der Subroutine vornehmen, anstatt alle Dateien zuerst in einen Array zu packen.