Discussion :

[o_Nejma]

Bonjour tout le monde,

Je voulais développer une fonction qui permettra:
1- Parcourir l’arborescence d'un répertoire donné.
2- Ne renseigner dans une liste ou un fichier txt que les dossiers contenant des fichiers ayant pour extension ".h".

J'ai fait ce code qui sélectionne bien les dossiers contenant des *.h. Mais malheureusement je n'arrive pas à contrôler la recherche de telle sorte à ce qu'elle s’arrête une fois un seul fichier .h est rencontré!

Code :

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

1
2
3
4
 
       find({  wanted   => sub { push @directories, $File::Find::dir if $_ =~ m/(\.h)\z/s },
                 nochdir  => 1,
               }, $base);

Voici ce que ça donne, SVP aviez vous une idée sur la condition que je peux mettre pour que le nom du répertoire soit retourné une fois un seul .h est trouvé?:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
..\..\lib\include
..\..\lib\include
..\..\lib\include
..\..\lib\include
..\..\lib\include
..\..\lib\api
..\..\lib\api
..\..\headers
 
..\..\headers

Par avance Merci et bonne journée à tous!
Nejma

[o_Nejma]

Re Bonjour,

J'ai trouvé une solution mais je n'en suis pas complètement persuadée...
avec le code si dessus j'ai une première liste avec jute les dossiers contenant des *.h mais répéter le nombre de "fichiers *.h qu'il contiennent". J'ai donc pensé à prendre cette liste et supprimer les doublons.
Cela marche bien mais je pense que c'est un peu lent, si j'arrive vraiment à interrompre la recherche une fois au moins un fichier .h est rencontré ce sera beaucoup plus rapide!
si vous avez des idées je suis prenante. Merciii
Ah pour la suppression des doublons j'utilise ça (au cas où il y'a des intéressés...):

Code :

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

1
2
3
4
5
6
7
8
9
 
    my %SaveKeys;
    foreach(@directories)
    { 
       my $key_ = File::Spec->canonpath($_); 
       $SaveKeys{$key_} = "path"; 
    }
    my @header = keys(%SaveKeys) ;
    foreach my $directory (@header) { print " $directory \n"; }

Merci.

[Lolo78]

Bonjour,

J'ai fait ce code qui sélectionne bien les dossiers contenant des *.h. Mais malheureusement je n'arrive pas à contrôler la recherche de telle sorte à ce qu'elle s’arrête une fois un seul fichier .h est rencontré!

Code :

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

1
2
3
4
 
       find({  wanted   => sub { push @directories, $File::Find::dir if $_ =~ m/(\.h)\z/s },
                 nochdir  => 1,
               }, $base);

Je ne pense pas que ce soit possible avec le module File::Find.

Voici ce que ça donne, SVP aviez vous une idée sur la condition que je peux mettre pour que le nom du répertoire soit retourné une fois un seul .h est trouvé?:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
..\..\lib\include
..\..\lib\include
..\..\lib\include
..\..\lib\include
..\..\lib\include
..\..\lib\api
..\..\lib\api
..\..\headers
 
..\..\headers

Il faut soit dédoublonner les résultats après coup (le plus simple est de les stocker comme clefs d'un hash, le dédoublonnage sera pour ainsi dire automatique), ou alors il faut implémenter la mécanique de File::Find soi-même manuellement. Je pencherais très largement pour la première solution (dédoublonnage).

[o_Nejma]

Il faut soit dédoublonner les résultats après coup (le plus simple est de les stocker comme clefs d'un hash, le dédoublonnage sera pour ainsi dire automatique), ou alors il faut implémenter la mécanique de File::Find soi-même manuellement. Je pencherais très largement pour la première solution (dédoublonnage).

Merci pour ta réponse Lolo78.
En fait c'est ce que j'ai fait (sur mon deuxième message) mais vu le nombre de répertoire que j'ai et qui peuvent contenir jusqu'à des centaines de fichier header, la recherche prend un temps considérable! C'est pourquoi j'aimerai bien essayé une autre solution.

[Lolo78]

Bonjour,

je ne suis pas sûr que ça te fasse vraiment gagner du temps, mais voici un programme faisant manuelle la recherche. Son seul avantage est s'arrêter de scanner un répertoire dès qu'il a trouvé au moins un *.h. Mais on ne peut pas empêcher que l'appel système renvoie toute la liste, c'est seulement en aval que l'on peut élaguer un peu les opérations.

La fonction parcourt_dir parcourt récursivement l'arborescence à partie du répertoire de départ et ajoute les répertoires voulus à @directories.

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
 
use strict;
use warnings;
 
my $root_dir = shift; # répertoire de départ reçu en paramètre
my @directories;
 
parcourt_dir($root_dir);
 
sub parcourt_dir {
    my $start_dir = shift;
    my @entries = glob("$start_dir/*.h");
    push @directories, $start_dir if @entries; # ajoute $start_dir du moment qu'il y a au moins un *.h
    my @sub_dirs = grep { -d } glob("$start_dir/*");
    parcourt_dir($_) for @sub_dirs; # appel récursif pour les sous-répertoires
}
print join "\n", @directories;

[o_Nejma]

Merci beaucoup Lolo78, ça me semble intéressant je l'essayerai!
Encore merci pour tes réponses!