Discussion :

[ptonnerre]

Bonjour,

en entrée, le contenu du répertoire /log est :

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
21
22
23
24
25
26
dpi@uvmlsrv01 /log $ find .
.
./lost+found
find: `./lost+found': Permission denied
./controle
./controle/skel_uvmlsrv01.log
./tech
./tech/skel5-fnctl.pl_10829_20160803_154154.log
./tech/skel5-fnctl_10725_20160803_151229.log
./tech/skel5-fnctl_10732_20160803_151345.log
./tech/skel5-fnctl.pl_11021_20160803_164413.log
./tech/skel5-fnctl.pl_11063_20160803_165831.log
./tech/skel5-fnctl_10790_20160803_153108.log
./tech/skel5-fnctl.pl_10862_20160803_155524.log
./tech/skel5-fnctl.pl_11049_20160803_165235.log
./tech/dir1
./tech/dir1/dir11
./tech/dir1/dir11/dir111
./tech/dir1/dir11/dir111/testpto.txt
./tech/skel5-fnctl_10695_20160803_150344.log
./tech/skel5-fnctl.pl_10822_20160803_154101.log
./tech/skel5-fnctl.pl_10929_20160803_160713.log
./tech/skel5-fnctl.pl_11070_20160803_165903.log
./tech/skel5-fnctl_10773_20160803_152717.log
./testpto2.txt
./testpto3.txt

Je souhaite au final lister les fichiers testpto* du répertoire de départ, cad /log, sans descendre dans les sous-répertoire.

Dans un premier temps, je descends dans les sous-répertoires avec 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
20
21
22
23
#!/usr/bin/env perl
use strict;
use warnings;
use File::Find::Rule;
use feature 'say';
 
my $dir     = shift;
my $pattern = 'testpto*';
 
my $lf_out = File::Find::Rule->directory
                ->name('lost+found')
                ->prune
                ->discard;
 
my $file_in = File::Find::Rule->file
                ->name($pattern);
 
my @files = File::Find::Rule->or  ( $lf_out, $file_in )
                            ->in  ( $dir );
 
foreach my $f (@files) {
    say $f;
}

sortie :

Code :

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

1
2
3
4
 ./test_file_find_rule.pl /log
/log/testpto3.txt
/log/testpto2.txt
/log/tech/dir1/dir11/dir111/testpto.txt

Maintenant, le problème survient lorsque je ne veux pas descendre dans les sous-répertoires. Mon interprétation est que la règle $recur_out est vraie si maxdepth est supérieur à 1 et est écartée avec le not :

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
21
22
23
24
25
26
27
28
 
#!/usr/bin/env perl
use strict;
use warnings;
use File::Find::Rule;
use feature 'say';
 
my $dir     = shift;
my $pattern = 'testpto*';
 
my $lf_out = File::Find::Rule->directory
                ->name('lost+found')
                ->prune
                ->discard;
 
my $recur_out = File::Find::Rule->directory
                ->maxdepth( '>1' );
 
my $file_in = File::Find::Rule->file
                ->name($pattern);
 
my @files = File::Find::Rule->or  ( $lf_out, $file_in )
                            ->not ( $recur_out )
                            ->in  ( $dir );
 
foreach my $f (@files) {
    say $f;
}

sortie :

Code :

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

1
2
3
4
./test_file_find_rule.pl /log
/log/testpto3.txt
/log/testpto2.txt
/log/tech/dir1/dir11/dir111/testpto.txt

[dmganges]

Bonjour,
Il me semble qu'il y a là un exemple qui devrait convenir.
Perso je l'utilise pour faire des recherches à l'aide de regex... Avec et sans récursivité... ça fonctionne à merveille !

[Lolo78]

Bonjour,

si tu cherches juste a lister les fichiers d'un répertoire dans descendre récursivement dans les sous répertoires, alors il est probablement peu utile d'utiliser un module comme File::Find::Rule.

Un simple usage de la fonction glob peut suffire:

Code :

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

1
2
 
my @fichiers = glob ("/log/testpto*");

[ptonnerre]

Bonsoir,

certains répertoires doivent être explorés de manière récursive, d'autres non. Je cherche à gérer cela de manière globale avec ce module.
Il semblerait que maxdepth puisse répondre à cette demande, mais je n'y arrive pas.

[Lolo78]

D'après ce que je lis dans la doc, essaie peut-être avec maxdepth à 0.

[ptonnerre]

Déjà essayé :/

[Lolo78]

Je ne peux pas tester là sur ma tablette.

Je te conseillerais de tester avec un cas plus simple, ne comportant qu'un seul appel à File::Find::Rule, afin de bien comprendre dans quels cas il descend dans une recherche récursive et dans quels cas il ne le fait pas. Tu pourras alors revenir à ta construction de règles un peu plus compliquée.

[ptonnerre]

Je te conseillerais de tester avec un cas plus simple, ne comportant qu'un seul appel à File::Find::Rule, afin de bien comprendre dans quels cas il descend dans une recherche récursive et dans quels cas il ne le fait pas. Tu pourras alors revenir à ta construction de règles un peu plus compliquée.

Ton message avisé a été un déclic. Je suis parti d'un cas simple, lister tous les fichiers, ensuite implémenter maxdepth, filtrer sur le motif, exclure 'lost+found', etc.

Un grand MERCI

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
21
22
23
24
25
26
#!/usr/bin/env perl
use strict;
use warnings;
use File::Find::Rule;
use feature 'say';
 
my $dir     = shift;
my $level   = shift,
my $pattern = shift;
 
my $rule = File::Find::Rule->new;
$rule->or($rule->new
               ->directory
               ->name(qr/lost\+found|controle/)
               ->prune
               ->discard,
          $rule->new);
$rule->file;
$rule->maxdepth($level);
$rule->name($pattern);
 
my @files = $rule->in( $dir );
 
foreach my $f (@files) {
    say $f;
}

sorties :

Code :

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

1
2
3
 ./test_file_find_rule.pl /log 1 'testpto*'
/log/testpto3.txt
/log/testpto2.txt

Code :

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

1
2
3
4
5
6
./test_file_find_rule.pl /log 8 'testpto*'
/log/testpto3.txt
/log/testpto2.txt
/log/tech/testptoxxx.txt
/log/tech/dir1/testptoyyy.txt
/log/tech/dir1/dir11/dir111/testpto.txt