/**************************************************
*
* BrowseTree
* Matthieu Belge, 11/02/2001 00:01
*
* Parcours des fichiers d'une arborescence de répertoires
*
* @param directory Répertoire à parcourir
* @return TRUE si le parcours est OK
*
* @see GetDirContent
*
*************************************************/
sub BrowseTree
{
my ($directory) = @_;
$directory =~ s%/$%%;
if (! -e $directory ) {
print "Répertoire source inconnu ($directory).";
return undef;
}
my $dir_files = GetDirContent($directory);
return undef unless ( defined $dir_files );
my $dir_file;
foreach $dir_file (@{$dir_files}) {
if ( -d "$directory/$dir_file") {
return undef unless ( defined BrowseTree("$directory/$dir_file") );
} elsif ($dir_file =~ m/\s*(\.ext)/i) {
# remplacer .ext avec l'extension des fichiers a traiter
#Traiter les fichiers ici
}
}
return 1;
}
|