[langage] recherche directory et sous directory

**Ludo167** · 12/07/2004, 15h21

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

**fsapet** · 12/07/2004, 15h26

Envoyé par Ludo167

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
Ludo

pour repondre rapidement;
si avec $File::Find::dir tu es satisfait du resultat mais que le seul souci est ensuite de trier les doublons de ton tableau, alors remplace celui-ci par une table de hachage et tu n'aura plus de pb de doublons., les cle d'un hash sont forcement uniques

**Ludo167** · 12/07/2004, 15h28

petit probleme une table de hash je ne connais po du tout peux tu m'eclairer sur ce truc

je t'en remercie

Ludo Le debutant

**fsapet** · 12/07/2004, 15h39

http://<br /> http://www.lhullier.o...e07.html<br />

voici un petit peu de lecture sur les tables de hachage
si tu as encore des questions n'hesite pas

une fois que tu auras saisi ce que sont les tables de hachage, tu verra que tu pourras remplacer un tableau comme celui-ci (qui a des doublons)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
@tab = ('abc', '123', 'abc', 'ert', 'gth', '145', 'abc');

par une table de hachage qui est de la forme cle=>valeur associee
tes cle seront les valeurs de ton tableau et comme valeur tu prends 1 par defaut
tu auras une table de hachage qui sera alors comme ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
%tab ('abc' =>1, '123' =>1, 'ert'=>1, 'gth'=>1, '145'=>1);

le doublon 'abc' est automatiquement supprime, parce qu'il est 'ecrase' a chaque fois

**Jedai** · 12/07/2004, 15h48

Euh... sans vouloir dire RTFM, il s'agit d'un type de donnée de base dans perl, donc : 'perldoc perlintro', section sur les hashs...
Les tables de hachages ou hashs sont des structures de données qui ressemblent à des tableaux sauf que les données sont indexés par des strings (chaînes de caractères) plutôt que des nombres, suite dans le manuel (disponible en français, cf "annonce" sur le forum)

--
Jedaï

**Ludo167** · 12/07/2004, 16h17

oui peut etre mais si evdient que ca si tu n'as jamais utlisé les tableau assoiciatifs!!!!!

et oui j'ai reussi sinon a supprimer les doublons avec les exemples fourni des le lien de fsapet!!!!

Merci a plus