Discussion :

[solerian]

Bonjour à tous,

Dans un répertoire je souhaite faire apparaître uniquement les fichiers de types PDF, sachant que j'ai déjà réalisé un programme qui me permet d'afficher le contenu complet d'une arborescence ( C:\test) par exemple
Voici le module que je viens de créer :

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
 
package Pdf;
use strict;
use warnings;
 
sub GetFilesList
{
        my $Path = $_[0];
        my $FileFound;
        my @FilesList=();
 
        # Lecture de la liste des fichiers
        opendir (my $FhRep, $Path)
                or die "Impossible d'ouvrir le repertoire $Path\n";
        my @Contenu = grep { !/^\.\.?$/ } readdir($FhRep);
        closedir ($FhRep);
 
        foreach my $FileFound (@Contenu) {
                # Traitement des fichiers
                if ( -f "$Path/$FileFound") {
                        push ( @FilesList, "$Path/$FileFound" );
                }
                # Traitement des repertoires
                elsif ( -d "$Path/$FileFound") {
                        # Boucle pour lancer la recherche en mode recursif
                        push (@FilesList, GetFilesList("$Path/$FileFound") );
                }
 
        }
        return @FilesList;
}
 
#
# Boucle principale
#
 
my @Files = GetFilesList ('C:/test/');
foreach my $File  (@Files) { 
	print "$File \n";
	open ( my $fic, "+> fichier.pdf") || die ("le fichier n'existe pas \n");
}   
1;

Voici ce qu'il me renvoie :

Code :

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

1
2
3
4
5
6
 
use strict;
use warnings;
use Pdf;
 
Pdf::GetFilesList ('C:/test/');

Voici le résulat de ce programme :
Pièce jointe 196488

Cordialement bonne journée

[Lolo78]

Si j'ai bien compris, il suffit par exemple de filtrer tes noms de fichiers sur l'extension pdf. Par exemple:

Code :

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

1
2
3
4
 
               if ( -f "$Path/$FileFound") {
                        push @FilesList, "$Path/$FileFound" if $file_found =~ /\.pdf$/i;
                }

[solerian]

Bonjour,

Je souhaite ne fair qu'apparaitre que les fichiers de type pour se faire j'ai rajouté cette ligne à mon programme

Code :

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

1
2
3
4
5
6
7
 
my @Files = GetFilesList ('C:/test');
foreach my $File  (@Files) { 
my $Ficext = " fichier.pdf \n";
@Files = split (/./,$Ficext,2);
print "$File \n";
}

Voici tout d'abord le contenu du répertoire test :

Pièce jointe 196583

Sachant que dans le répertoire 2015_09_17_18 il y a un fichier texte : fichier.txt

Voici ce qu'il se passe lorsque j'exécute ce programme :

Pièce jointe 196586

Comment faire pour avoir que le fichier pdf ?

Cordialement

[Lolo78]

Bonjour,

ces deux lignes:

Code :

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

1
2
3
 
my $Ficext = " fichier.pdf \n";
@Files = split (/./,$Ficext,2);

ne servent à rien, et je ne vois même pas ce que tu crois faire avec elles. De toute façon, la variable @Files n'est pas réutilisée.

Si tu veux filtrer ta liste en entrée et ne garder que les fichiers ayant l'extension PDF, tu peux faire quelque chose comme ceci:

Code :

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

1
2
3
4
5
6
 
my @Files = GetFilesList ('C:/test');
foreach my $File  (@Files) { 
    next unless $File =~ /\.pdf$/i; # sauter ce fichier s'il ne se termine pas par .pdf ou .PDF
    print "$File \n";
}

Ou bien:

Code :

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

1
2
3
4
5
 
my @Files = GetFilesList ('C:/test');
foreach my $File  (@Files) { 
    print "$File \n" if $File =~ /\.pdf$/i; # imprimer le nom de fichier s'il se termine par .pdf ou .PDF
}

Ou encore filtrer la liste en amont:

Code :

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

1
2
3
 
my @Files = grep {/\.pdf$/i} GetFilesList ('C:/test'); # filtrer la liste en entrée
print "$_\n" for @Files;

Ou même en une seule ligne de code:

Code :

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

1
2
 
print "$_\n" for grep {/\.pdf$/i} GetFilesList ('C:/test');

Je ne sais pas d'où vient ta fonction GetFilesList, mais il est possible qu'elle puisse filtrer elle-même ce qu'elle récupère:

Code :

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

1
2
 
print "$_\n" for GetFilesList ('C:/test/*.pdf');

La fonction glob peut également te rendre service. Par exemple, sous Windows, pour trouver les fichiers Perl sur mon répertoire courant:

Code :

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

1
2
3
4
5
6
7
8
9
 
C:\Users\Laurent>perl -e "print qq/$_\n/ for grep {/\.pl$/i} glob('*.*')"
Bipoint.pl
count.pl
delegation.pl
(...)
test_perl6_9.pl
test_perl6_enum.pl
test_perl6_grammar.pl

Ou des fichiers Python commençant par t, en filtrant "t*.py" directement dans l'appel de glob:

Code :

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

1
2
3
4
5
 
C:\Users\Laurent>perl -e "print qq/$_\n/ for  glob('t*.py')"
tortue1.py
tortue2.py
tortue3.py

[solerian]

Merci beaucoup pour ton aide, j'ai réussi à lister tous les fichiers PDF que je souhaitais et dans chaque répertoire