Bonjour a tous,
voilà mon probleme j'essaye de recuperer tous les sous repertoire d'un dossier donné en parametre j'ai essayé avec la fonction File::Find mais trop long voici mon code :
donc comme on peut voir ci dessus je recupere tous les fichiers dans un tableau et je suuprime ensuite tous les elements du tableau qui ne sont pas des repertoires!!!
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26 my $SourceDir = substr($CXXINCLUDES_ARR[0],2); ### Seek all the files in the directory give in parameter find(\&GetCorrectFilesNames, $SourceDir); for ($Index1=0;$Index1<$#FilesDir+1;$Index1++) { if ( !-d $FilesDir[$Index1] ) { splice ( @FilesDir, $Index1, 1); $Index1 --; } } ###### Fonction allow to recover all the file in the directory ############# sub GetCorrectFilesNames { $FileDir = $File::Find::name; $FileDir =~ tr/\//\\/; push(@FilesDir, $FileDir); }
mais le temps est vraiment trop long mais vraiment trop long;
J'ai essayé aussi avec $File::Find::dir mais là j'ai trop d'element du tableau qui sont identiques dc apres fo que je fasse un tri pour eliminer les doublons si quelqu'un a une solutions cela m'arrangerais grandement je vous remercie d'avance de votre aide!!
Ludo
Partager