Discussion :

[loula427]

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 :

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

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 :

/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 :

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

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 ?

[Philou67430]

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

$_ 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).

[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 .

[loula427]

Me voila avec une solution...


Alors je commence par expliquer mon arboresence :

Code :

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

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 :

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
 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 :

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

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 :

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

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 :

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

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 :

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

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 :

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

 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 .

[Philou67430]

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 :

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

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

cela doit être équivalent à :

Code :

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

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

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

Code :

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

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);

[Philou67430]

Il y a aussi sans doute moyen de tout faire avec Find::File

[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...

[Philou67430]

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

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
 
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.

[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 .

[Philou67430]

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

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
 
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)

[loula427]

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 :

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
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 .