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 :

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);
}
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!!!

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