lecture de fichiers dans des sous-dossiers
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:
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
