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