Discussion :

[GLDavid]

Bonjour !

J'ai honte ! . La honte sur moi. Je sais faire des choses évolués sur Perl (CGI, gestions de MySQL, parsing XML, Perl/Tk), mais je suis pas foutu de lister dans un tableau des répertoires.
Voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
my(@DIRECTORIES);
opendir (DIR,".") or die "Impossible d'ouvrir le répertoire courant";
while (my($fic) = readdir(DIR)) {
	if(-d $fic) {
		push(@DIRECTORIES, $fic);
	}
}
closedir(DIR);
my($f);
foreach $f (@DIRECTORIES) {
	print"$f\n";
}

Et le seul répertoire qu'il m'affiche est..... "." !
Pourtant il y a d'autres répertoires. Dieu que la vie est cruelle !!!

@ ++

[GLDavid]

Bon, finalement, comme toujours je biaise (et Dieu sit que j'adore biaiser ).
En fait, quand je créer mes répertoires, je récupère leurs noms à ce moment là. Toutefois, si vous avez une solution élégante, je prend aussi.

@++

[Choupi]

Probleme au niveau du while.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
my(@DIRECTORIES);
opendir (DIR,".") or die "Impossible d'ouvrir le répertoire courant";
 
foreach $fic (readdir DIR){ 
   if(-d $fic) {
      push(@DIRECTORIES, $fic);
   }
}
closedir(DIR);
 
print "@DIRECTORIES";

Ce code fonctionne chez moi et est portable.

Bon courage.

[GLDavid]

Oki ! Merci Choupi !!!
Ca roule !

Rock'n'roll !

@++