Discussion :

[narmika]

Bonjour tout le monde,

Je veux déterminer tous les chemins des fichiers et des répetoires qui sont sous une racine qui sert comme argument d'entrée.

Par exemple : le chemin de la racine qui est a/b/racine

et ça doit me donner une liste de ts les dossiers et de ts les fichiers qui sont sous a/b.

N'importe quelle astuce sera la bienvenue.

[Jedai]

Soit tu utilises les fonctions opendir/readdir/closedir, soit tu utilises un glob, soit tu utilises le module File::Find (ou l'un des modules dérivés à l'interface plus élégante comme File::Finder ou File::Find::Rule).

--
Jedaï

[narmika]

oki, je pense klmodule sera plus efficace, merci

[narmika]

EN fait g jamais utilisé ce module, tu peux me diriger si tas deja eu loccasion de bosser avec?

[Jedai]

De quel module parles-tu ? File::Find ?
As-tu lu sa documentation ? Oui je sais que son interface est un peu agressive pour un débutant en programmation, c'est pour ça que j'ai suggéré plutôt File::Finder ou File::Find::Rule...
Mais si tu préfères te servir uniquement de modules du CORE, et que ton objectif est réellement de récupérer une liste de tous les fichiers dans les dossiers et sous-dossier sous une racine /a/b, le code suivant conviendra :

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
#!/usr/bin/env perl
use strict;
use warnings;
 
use File::Find;
 
find( \&push_filename, '/a/b' );
my @files_and_dirs;
sub push_filename {
  push @files_and_dirs, $File::Find::name;
}
 
# travail avec la liste
 
__END__

Néanmoins, la plupart du temps quand on demande une telle liste, ce qu'on veut réellement c'est faire quelque chose à tous les éléments de cette liste, et de plus on ne veut en réalité que les véritables fichiers (pas les liens symboliques, pas les pipes, pas les répertoires), et dans ce cas le programme ressemble plutôt à ça :

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
#!/usr/bin/env perl
use strict;
use warnings;
 
use File::Find;
 
find( \&do_something_to_the_real_files, '/a/b' );
 
sub do_something_to_the_real_files {
  if( -f $_ ) {
    # travail avec $_
  }
}
 
__END__

L'avantage c'est qu'on a pas besoin ainsi de stocker une énorme liste inutile en mémoire.

Attention, l'une des chausse-trappes de ce module est que le répertoire de travail du script est changé au cours de l'exécution de find(), en particulier dans la fonction de callback (le premier paramètre de find() ), lors de son exécution le répertoire courant est le répertoire du fichier qu'on est en train d'examiner (et dont le nom se trouve dans $_, alors que son chemin complet est dans $File::Find::name).

--
Jedaï

[narmika]

Je parlais de FILE::FIND. Wi tas raison , mon but et de collecter ts les chemins des fichiers ds un tableau et ts les chemins des dossiers ds un tableau. Bon je vais essayer de me docummenter alors...On mavait di ke je pouvais faire cela en 5 lignes, on verra bien ..