Bonjour,
 
Je voudrais faire une recherche de fichier dans une arborescence en y excluant un certain nombre de dossier.
 
J'ai commencé par le code suivant mais cela ne fonctionne pas :
 

 
Quelqu'un pourrait-il m'aider svp ?
 
Merci.

Regardes du côté du module Find::Find et de ses dérivés.
 
A+,

J'ai vu qu'il existait File:Find ! Est ce que c'est la même chose ?

Oui, c'est File::Find que je voulais dire  
Dans ton cas, la variante File::Find::Rule serait plus adaptée avec qque chose du genre

#!/usr/bin/perl
use strictures; # ou use strict; use warnings; si le module strictures n'est pas installé dans votre config
use File::Find::Rule;
 
my $rule = File::Find::Rule->new; 
$rule->or($rule->new->directory->name( qr/test/i )->prune->discard, $rule->new);
my @files = $rule->in('.');
...

ou $rule->or(A, B); on va tenter d'appliquer les règles A ou B (et si on applique A, on essaye pas d'appliquer B, c'est important ici)
Avec $rule->new->directory->name( qr/test/i )->prune->discard on crée une nouvelle règle qui pour tout nom passé en entrée qui est un nom de répertoire vérifiant la regexp /test/ a pour action de ne pas aller dans le sous répertoire (prune) ni de mettre en sortie le nom en cours (discard).
Avec $rule->new on crée une nouvelle règle vide qui met en sortie tout nom qui lui est passé en entrée.  
Donc pour tout nom passé à la règle de base qui a pas été matché (et donc exclus) par la première règle, on copie a l'identique en sortie.
 
 
A+,

Bonsoir Gilou,
 
Désolé de répondre si tardivement ! Merci dans tout les cas pour tes réponses.
 
Par contre j'ai essayé ton code mais cela ne fonctionne pas !
Il n'y a une façon de faire plus simple du genre le bout de code que j'ai posté en début de post ?

> Par contre j'ai essayé ton code mais cela ne fonctionne pas !  
Donc tu n'as pas bien testé. Je ne poste jamais un code dans la section perl sans l'avoir testé (vu a quel point c'est facile) sauf cas très exceptionnel d'environnement non reproductible sur ma machine (cas de connexion a un serveur particulier par exemple).
J'ai donné un code à utiliser (qui marche parfaitement), mais il faut faire un minimum de boulot pour l'adapter à ses besoins.
 
Quand au code que tu as posté, comme il n'y a aucun contexte, il est impossible de répondre. On n'a aucune idée de ce que contient $rep1 par exemple (ça provient d'un opendir ou quoi?)
 
A+,

Bonjour Gilou,
 
Désolé, je me suis mal exprimé ! Je ne mets pas en doute que ton code fonctionne parfaitement. C'est juste que j'ai beau tourné ça dans tous les sens, ça ne fonctionne pas dans mon script... Et là je rejette la faute sur moi car j'essaye de comprendre mais ce n'est pas si simple quand on vient juste de se mettre à ce language !
 
Pour ce qui est de mon code :
 
ex : next if ($_ eq "." || $_ eq ".." || $_ =~ m/Nom_rep/i);
 
$_ est égal au chemin ou se trouve l'ensemble des répertoires à scanner.
Nom_rep est égal au nom du répertoire à exclure.

Et comment c'est censé marcher alors?
Si tu as un next, tu as donc une boucle. tu boucles sur quoi?
Bref, tant que je n'ai qu'une ligne de code ET NON PAS LA PORTION UTILE DU SCRIPT POUR SAVOIR EXACTEMENT CE QUE TU FAIS, je suis dans l'incapacité totale de répondre.
Je ne veux pas des centaines de lignes, mais au moins assez de lignes pour savoir ce qui se passe (d'ou provient la valeur de $_, sur quoi on boucle...)
 
A+,

Pas de soucis !
 
my $dir = $ARGV[0];
 
find( \&search, $dir );
sub search {
if (-f "$_" ) {
next if ($_ eq "." || $_ eq ".." || $_ =~ m/Nom_rep/i);
 
....

Bon ben c'est un truc comme ceci alors:
 

#!/usr/bin/perl
use strictures;
use File::Find;
 
my $dir = $ARGV[0];
find( \&search, $dir );
 
sub search {
  if (-d $_ ) {
    # vire le cas . et le cas .. du traitement
    return if (/^\.\.?$/);
    if (/Nom_Rep/i) {
      # ne vas pas inspecter le répertoire
      $File::Find::prune = 1;
      # et vire le répertoire du traitement
      return;
    }
  }
  # traitement, ici on imprime le nom de fichier (sans path)
  print "$_\n";
}

 
A+,
 

Ok, très bien merci ! Dès que je peux je testerais. Merci encore pour ton aide.