Bonjour à tous,

je dois réaliser un programme en perl qui dois me permettre d'extraire mon arborescence ainsi que le contenu du répertoire.

Voici un extrait de mon code :
Pièce jointe 193641

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
43
44
45
46
47
48
49
50
51
use strict; 
use warnings; 
use File::Basename; 
use Cwd;
 
sub GetFilesList
{
 
my $fichier = "C:/Documents and Settings/pbaranowp/Documents/2015_11_12_13/"; ## voir tout les fichiers contenu dans 2015_11_12_13 ## 
my $repertoire = dirname($fichier); 
my $nom_fichier = basename($fichier); 
print "$repertoire \n $nom_fichier\n"; 
 
        my $Path = "C:/Users/baranowp/Documents";
        my $FileFound;
        my @FilesList=("C:/Users/baranowp/Documents");
 
        # 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:/Users/baranowp/Documents");
foreach my $File  (@Files) {
 
	print getcwd;
	print "$File\n";
	print "la liste des dossiers et des fichiers est : $File";
 
 
}
Merci pour votre, bonne journée