lecture de fichiers dans des sous-dossiers

**africanwinners** · 08/04/2013, 15h08

bonjour à tous

j'ai un programme qui permet de lire et de traiter des fichiers qui se trouve dans un dossier

commet faire pour qu'il me permette de lire les fichiers qui se trouvent dans des sous dossiers

supposons qu'on a un dossier test qui contient d'autre dossiers, je veux lire le contenue des autres dossiers

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
#!/usr/bin/perl
$rep = "C:/test";
opendir(REP,$rep) or die "E/S : $!\n";
 
while(defined(my $fic=readdir REP)){
open(FIC, $fic);
open(FIC1, ">c"."$fic");
 
 
    while(<FIC>){
	 $ligne=$_;
....
}}

mon programme il permet de lire tous les fichiers dans un dossiers, moi je veux lire aussi tous les fichiers dans les sous dossiers

merci

**Lolo78** · 08/04/2013, 16h26

Le plus simple est d'utiliser le module File::Find du CPAN.

**magicshark** · 10/04/2013, 14h07

je sais que c'est possible mais alors comment exactement ...
le but est de jouer avec une fonctions récursive.

en gros

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
my $dir ="C:/";
openDir($dir);
sub openDir{
my($dir) = @_;
#parcour du repertoir
if(-d $fichier)#si c'est un repertoire
{
    openDir($fichier)
}else{
 
#Traitement sur un fichier
}
}