File Find et duplication de de nom.

Version imprimable

Voila j'ai un petit probleme avec le module File::Find.

J'ai un repertoire pepfiles, je veux imprimer tous les fichiers present dans ce repertoire, mais pas dans ces sous repertoires (pour l'exemple).

Je met mon code ici :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 use File::Find; sub DirGet{ my $dir = "/aaa/bbb/ccc"; my $files = (); find({ wanted => \&process, follow => 1, no_chdir }, $dir); my $a = 0; } sub process { $a = $File::Find::name . "/$_"; print "$a\n"; }
Ca fonctionne correctement ou presque pour tous les fichiers qui possede une extension je n'ai pas de probleme par contre pour ce qui n'ont pas d'extension j'obtien quelques choses d'etrange !!! Je vous montre :

Citation:

/aaa/bbb/ccc/abc.pep
/aaa/bbb/ccc/def.pep
/aaa/bbb/ccc/all/all

Voyez la derniere ligne j'ai bien un fichier all dans /aaa/bbb/ccc/ mais pas de repertoire all contenant un fichier all.

Quelqu'un a une idee ?

Bon j'edit mon message car j'ai une question qui me viens a l'esprit...
Comment faire si je veux que dans certain cas j'affiche tous les fichiers et dans d'autre seulement les fichiers ayant une certaine extension ?

Encore moi juste pour dire que finalement mon code resemble a ca :
Code:

1 2 my $files = (); find({ wanted => sub { push @$files, $File::Find::name . "/$_"}, follow => 1, no_chdir }, $directories);
car sinon je vois pas comment recuperer un tableau contenant les noms des differents fichiers des suggestions ?

01/12/2010, 09h20
Philou67430

Deux choses :
- si tu lis la doc, tu verras que

Citation:

$_ is the current filename within that directory
$File::Find::name is the complete pathname to the file.

Or tu construits ton nom de fichier avec les deux valeurs, là où seul $File::Find::name est suffisant.
- si tu ne souhaites pas descendre dans les sous-répertoire (ce qui est l'objectif premier de File::Find, pourquoi ne pas utiliser simplement opendir/readdir ?
Si malgré tout, tu souhaites utiliser File::Find, il faudra ajouter des conditions dans wanted() pour ne pas descendre dans l'arborescence (avec l'aide de $File::Find::prune... mais je n'ai pas encore trouvé comment).
01/12/2010, 15h18
loula427

Merci pour la reponse.

Pour ce qui de File::Find en fait il y a deux situation differente, il va y avoir des cas ou je veux descendre dans l'arborescence et d'autre non c'est pour ca que opendir ne me convient pas.

Sinon je suis un peu naze de ne pas avoir vu mon erreur !!! avec la concatenation, au final c etait de l inatation apres mettre perdue dans la doc de File::Find.

Encore merci je vais tester ca aujourd'hui et je reviendrais peut etre avec d'autre questions sur le meme sujet ou pas :).

En tous cas si j arrive a faire ce que je veux je mettrais mon code ici :).

Me voila avec une solution...

Alors je commence par expliquer mon arboresence :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
/home/user_AAA/test_file
/home/user_AAA/test_file/aaa.pep
/home/user_AAA/test_file/bbb.pep
/home/user_AAA/test_file/ccc.pep
/home/user_AAA/test_file/zzz
/home/user_AAA/test_file/xxx
/home/user_AAA/test_file/rep2
/home/user_AAA/test_file/rep2/ggg.pep
/home/user_AAA/test_file/rep2/hhh.pep
/home/user_AAA/test_file/rep2/iii.pep
/home/user_AAA/test_file/rep1
/home/user_AAA/test_file/rep1/ddd.pep
/home/user_AAA/test_file/rep1/eee.pep
/home/user_AAA/test_file/rep1/fff.pep

Alors voila j'ai 4 situations diferrentes :

1. Je veux seulement regarder dans le repertoire que je fournie en command line et pas dans les sous repertoire :
a. l'utilisateur recherche des fichiers ayant un pattern en particulier.
b. l'utilisateur recherche tous les fichiers.
2. Je veux regarder dans le repertoire que je fournie en command line et dans les sous repertoire :
a. l'utilisateur recherche des fichiers ayant un pattern en particulier.
b. l'utilisateur recherche tous les fichiers.

Ce qui me donne le code suivant :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 if ($here == 1) {
        opendir(my $dh, $directory) || die "can't opendir $directory: $!";
        if ($pattern) {
            @$files = grep { /$pattern/ && -f "$directory/$_" } readdir($dh);
        }
        else {
            @$files = grep { // && -f "$directory/$_" } readdir($dh);
        }
        foreach $file (@$files) { $file = "${directory}$file"}
    }
    elsif ($rec == 1) {
        if ($pattern) {
            find({ wanted => sub { return if (-d $File::Find::fullname);if ($_ =~ m/$pattern/){ push @$files, $File::Find::name}}, follow => 1, no_chdir => 1 }, $directory)
        }
        else {
            find({ wanted => sub {return if (-d $File::Find::fullname); push @$files, $File::Find::fullname}, follow => 1, no_chdir => 1 }, $directory);
        }
    }
    return (scalar(@$files),$files);

Ca semble fonctionner correctement car si je reprend les 4 possibilite et que je les execute j'obtient les resultats ci-dessous en utilisant les pattern .pep.

1.a :

Code:

1
2
3
4
@$files
0  '/home/user_AAA/test_file/aaa.pep'
1  '/home/user_AAA/test_file/bbb.pep'
2  '/home/user_AAA/test_file/ccc.pep'

1.b :

Code:

1
2
3
4
5
6
@$files
0  '/home/user_AAA/test_file/aaa.pep'
1  '/home/user_AAA/test_file/bbb.pep'
2  '/home/user_AAA/test_file/ccc.pep'
3  '/home/user_AAA/test_file/zzz'
4  '/home/user_AAA/test_file/xxx'

2.a :

Code:

1
2
3
4
5
6
7
8
9
10
@$files
0  '/home/user_AAA/test_file/aaa.pep'
1  '/home/user_AAA/test_file/bbb.pep'
2  '/home/user_AAA/test_file/ccc.pep'
3  '/home/user_AAA/test_file/rep2/ggg.pep'
4  '/home/user_AAA/test_file/rep2/hhh.pep'
5  '/home/user_AAA/test_file/rep2/iii.pep'
6  '/home/user_AAA/test_file/rep1/ddd.pep'
7  '/home/user_AAA/test_file/rep1/eee.pep'
8  '/home/user_AAA/test_file/rep1/fff.pep'

2.b :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
x @$files
0  '/home/user_AAA/test_file/aaa.pep'
1  '/home/user_AAA/test_file/bbb.pep'
2  '/home/user_AAA/test_file/ccc.pep'
3  '/home/user_AAA/test_file/zzz'
4  '/home/user_AAA/test_file/xxx'
5  '/home/user_AAA/test_file/rep2/ggg.pep'
6  '/home/user_AAA/test_file/rep2/hhh.pep'
7  '/home/user_AAA/test_file/rep2/iii.pep'
8  '/home/user_AAA/test_file/rep1/ddd.pep'
9  '/home/user_AAA/test_file/rep1/eee.pep'
10  '/home/user_AAA/test_file/rep1/fff.pep'

Perso je trouve la partie du code la un peu moche :

Code:

foreach $file (@$files) { $file = "${directory}$file"}

mais je sais pas comment la remplacer une idee ?

En tous cas merci pour l'aide, le opendir et grep mon etaient bien utile :).

Pour ton besoin, tu peux simplifier les choses en considérant que la recherche de pattern peut être utilisée dans les cas a et b (pour chaque cas 1 et 2).
Dans le cas a, tu utilises le pattern fourni par l'utilisateur, et dans le cas b, tu utilises le pattern // (qui sera toujours vrai).

Pour ce qui est de

Code:

foreach $file (@$files) { $file = "${directory}$file"}

cela doit être équivalent à :

Code:

map { $_ = "${directory}$_" } @$files;

Mais tu peux aussi réaliser cette opération directement dans le grep :
Code:

1 2 3 4 5 6 7 8 9 use perl 5.10.0; $pattern //= ""; # si perl < 5.10, écrire $pattern = defined $pattern ? $pattern : ""; if ($here == 1) { opendir(my $dh, $directory) || die "can't opendir $directory: $!"; @$files = grep { $_ = "$directory/$_"; /$pattern/ && -f } readdir($dh); elsif ($rec == 1) { find({ wanted => sub { return if (-d $File::Find::fullname);if ($_ =~ m/$pattern/) { push @$files, $File::Find::name}}, follow => 1, no_chdir => 1 }, $directory) } return (scalar(@$files),$files);

02/12/2010, 09h58
Philou67430

Il y a aussi sans doute moyen de tout faire avec Find::File
02/12/2010, 14h21
loula427

Merci pour la réponse, effectivement cela simplifie le code.

Je pense aussi qu'il y a moyen de faire cela avec Fille::Find au complet mais en cherchant a plusieurs reprise sur le web et en essayant differente choses je n'y suis pas arrivé !! D'ou ma solution intermédiaire.

Bon allé je rajoute de la difficulté il va falloir que je rajoute un cas 3 a et b,
dans ce dernier cas il va falloir que je regarde exclusivement dans les sous repertoire du repertoire mere !!! et que je fasse les meme traitement que précédemment.

Je me demand si je vais pas utilise le meme code que pour rec pui enlever tous les fichiers present dans le repertoire mere, est ce qu'il y aurais une autre solution ?

Je vais voir ca des que je serais au taff, car la j'y suis pas encore...

Voici une idée pour tes trois cas ($case valant 1, 2 ou 3) :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
use 5.10.0;
$pattern //= ""; # si perl < 5.10, écrire $pattern = defined $pattern ? $pattern : "";
my @root;
my $recurse = 0;
given($case) {
  when(1) {
    @root = glob("$directory/*");
  }
  when(2) {
    @root = ($directory);
    $recurse = 1;
  }
  when(3) {
    @root = glob("$directory/*/*");
  }
}
find({ wanted => sub { (-f && (push @$files, $File::Find::name)) ; (!$recurse && -d && ($File::Find::prune = 1)) }, follow => 1, no_chdir => 1 }, @root);
 
return (scalar(@$files),$files);

J'ai testé un code similaire, mais pas exactement identique. S'il ne fonctionne pas, fais moi signe.

Edit : après essai et correction, ça semble fonctionner.

06/12/2010, 18h29
loula427

Hello merci pour le code,
j'ai tester par contre si je ne me trompe pas tu ne reutilise pas le pattern dans File::find !!!
Du coup ca me prend tous les fichiers, je vais modifier ca bientot et je remettrais le code, je suis dans 4 projet en meme temps actuellement alors je vais mettre un peu de temos a revenir avec le code.

En tous cas encore merci :).

Oups, désolé, je ne peux plus éditer.
Voici le code avec l'utilisation du pattern :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
use 5.10.0;
$pattern //= ""; # si perl < 5.10, écrire $pattern = defined $pattern ? $pattern : "";
my @root;
my $recurse = 0;
given($case) {
  when(1) {
    @root = glob("$directory/*");
  }
  when(2) {
    @root = ($directory);
    $recurse = 1;
  }
  when(3) {
    @root = glob("$directory/*/*");
  }
}
find({ wanted => sub { (-f && /$pattern/ && (push @$files, $File::Find::name)) ; (!$recurse && -d && ($File::Find::prune = 1)) }, follow => 1, no_chdir => 1 }, @root);
 
return (scalar(@$files),$files);

(je n'ai pas refait d'essai)

Fonctionne a merveille, je viens de tester, j'ai ajoute une petite ligne pour le cas 3 car je veux egalement que cette option soit recursive,j'ai donc finalement :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
use 5.10.0;
my $pattern = defined $pattern ? $pattern : "";
my @root;
my $recurse = 0;
given($case) {
  when(1) {
    @root = glob("$directory/*");
  }
  when(2) {
    @root = ($directory);
    $recurse = 1;
  }
  when(3) {
    @root = glob("$directory/*/*");
    $recurse =1
  }
}
find({ wanted => sub { (-f && /$pattern/ && (push @$files, $File::Find::name)) ; (!$recurse && -d && ($File::Find::prune = 1)) }, follow => 1, no_chdir => 1 }, @root);
 
return (scalar(@$files),$files);

Et voila, probleme resolu. Merci pour l'aide :).