Discussion :

[Feustine]

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

[GLDavid]

Salut

Ce qui se passe c'est que dans ta boucle, tu n'as que les noms de fichiers et non pas les noms de fichiers absolus, c'est ce qui fausse le test :

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
 
#!/usr/bin/perl -w
 
use Carp;
use strict;
 
my $dir_composant = "/home/david/Documents/Coding/Perl/Console";
opendir DIR,$dir_composant  or die "$dir_composant n'existe pas !";
my @folders = readdir DIR;
close DIR;
foreach my $fichier (@folders) {
chomp $fichier;
#print $fichier."\n";
  if(-d $dir_composant."/".$fichier)
  {
  print $fichier;
  print "\n";
  }
}

@++

[Feustine]

ca marche trop bien : )))

merci beaucoup ^^