Re-Bonjour,

Quand j'éxecute le code ci-dessous :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
 
#Afficher les fichiers et dossiers
opendir DIR, $dir_composant or die "$dir_composant n'existe pas !";
@folders = readdir DIR;
foreach $fichier (@folders) {
  print $fichier;
  print "\n";
}
j'obtiens cet affichage:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
 
.
..
dossier1
dossier2
dossier3
fichier1
fichier2
Jusqu'ici donc tout va bien

Mais lorsque je modifie un peu mon code pour ne faire apparaître que les dossiers de la manière suivante:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
 
opendir DIR, $dir_composant or die "$dir_composant n'existe pas !";
@folders = readdir DIR;
foreach $fichier (@folders) {
  if(-d $fichier)
  {
  print $fichier;
  print "\n";
  }
}
Alors je reçois à l'éxecution:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
 
.
..
et rien d 'autre pour la meme racine explorée...


Je ne comprends pas.. Si vous pouvez m'aider, ca me sera très utile